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1 What’s It All About? 


Most microcomputers look similar from the outside. Usually they 
are in a flat case, with a keyboard, rather like a typewriter. Then 
there 1s usually a television set, so that you can see what has been 
typed; and a socket so that a cassette recorder can record the 
programs. This way programs can be stored and played back into 
the computer without a lot of typing in. 


Although most micros look similar, different types are made to 
work in slightly different ways and so this book has been written to 
go with the BBC and Electron computers made by Acorn, and also 
the Acorn Atom with a BBC BASIC ROM. 


It is assumed that you have the use of one of these machines and 
can work through the book by trying out all the activities shown. 
To follow the book you need nothing more than a standard BBC 
Model A (or the Model B which has more memory and other 
facilities which are beyond the scope of this book). The Electron 
and the Atom use the same language, but some of their facilities 
are different. 


You will also need a cassette recorder and a black and white TV. 
Of course, in order to see the results of Chapter 11, you will need 
the use of a colour TV; but for learning to program, a black and 
white set will do. 


A good way to begin to understand computer programming is to 
type in programs from magazines. There are many magazines 
published each month aimed at the personal computer market. For 
young readers, Your Computer has articles, competitions and 
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programs which will be of interest. Not all the programs will be 
written specially for the Electron or the BBC, but with practice you 
will be able to adapt programs written for other computers and, of 
course, get ideas for programs of your own. Another magazine that 
will be of interest to BBC microcomputer owners is Acorn User. 
This covers the BBC microcomputer, the Atom and the Electron. 


For real enthusiasts at writing their own programs for the BBC 
computer, BEEBUG (the BBC Computer Independent User 
Group) issues a magazine (ten times a year) packed with prog- 
ramming advice. 


Of course there are lots of other magazines, weekly and 
monthly, so look around and see which ones have articles and 
programs that interest you most. 


Don’t spend a lot of money buying programs already on cassette, 
you'll just be tempted to put them into the computer and play with 
the games. That way you won’t find out how they work. For the 
price of one program cassette you can buy several magazines 
containing lots of programs and articles on programming techni- 
ques. 


WHAT IS A COMPUTER? 


All computers are machines that obey a program of instructions. 
Although the computer may seem to do amazingly clever things, it 
is just a machine, and a pretty stupid one at that. It can only 
perform instructions that have been written in a way it can under- 
stand. The whole skill of programming is to be able to give the 
computer instructions it understands, and that will make it do 
what you want it to. To do this we have to use a language that the 
computer recognises. This book will help you learn the computer 
language called BASIC, and, more especially, the version of 
BASIC that has come to be known as BBC BASIC. 


BASIC has many words in it that are very like English. You will 
certainly be able to recognise at least 2000 words 1n English, but 
your computer can only recognise about 120 words of BASIC. So 
you can see that compared to learning Welsh or German or 
French, learning BASIC should be quite easy, because there are so 
few words. The snag is that, because the computer Is stupid, if you 
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make the slightest mistake the computer will not be able to under- 
stand what you are trying to say (whereas the Welsh, Germans and 
French will try and help you along). Still, if you make a mistake, 
you will get a message on the screen to help you trace where you 
went wrong in the program. 


We’ve already said that a computer 1s a machine that follows 
instructions. Think of it as a goods train, and the program is the 
track with stations on it. The train has several wagons to hold 
goods, and each station has a notice board with instructions. 


The train must start at the end of the line and at each station 
must stop and load or unload goods according to the instructions. 
A series of instructions could look like this: 


1 START 

2 LOAD 24 BOXES INTO WAGON A 
3 LOAD 47 BOXES INTO WAGON B 
4 


TAKE WAGON A’S BOXES AND WAGON B’S 
BOXES AND LOAD THEM INTO WAGON C 


DISPLAY CONTENTS OF WAGON C 
6 STOP 


rn 
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AS 





The train can only follow the track, it can’t go to one side or the 
other and so all the instructions are followed. 


This is a very simple program (and not written in BASIC). 
Programs can be much longer and include branches (like railway 
points) so that the program can follow different routes when 
running. 


So, switch on your computer and start at the beginning of the 
next chapter and try out all the activities. Don’t be afraid to 
experiment — that’s the best way to learn, and don’t worry, you 
can’t break the computer just by typing in the wrong thing. The 
activities that are part of the chapters are written in an order which 
will introduce you gradually to new BASIC commands, so it’s best 
to start at the beginning and work through. All the programs work 
ona Model A BBC computer with 16K of memory (although there 
are suggestions how some will work better with 32K). Most of the 
programs will also work with an Acorn Electron or an Acorn Atom. 
with a BBC BASIC ROM. 


Have fun! 
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HOW TO CONNECT UP AND SWITCH ON 


The BBC computer comes complete with an attached mains lead 
and moulded 13 amp plug. This plug should not be removed. If 
the electrical sockets in your home do not fit this type of plug then 
consult a qualified electrician. 


Two other leads are supplied, a TV lead with a plug at each end, 
and a cassette recorder lead with a 7 pin DIN plug at one end and 
something else at the other. (See LOADING AND SAVING, in 
Chapter 2, about this lead.) 


One of the plugs on the TV lead has a long central pin sticking 
out from the body of the plug. This is a PHONO plug and goes into 
the socket at the left-hand end of the back panel of the computer 
(marked ‘“‘UHF out’’). The other end plugs into the aerial socket of 
your TV set. 


Plug in both computer and TV set and switch them on. The 
computer should give off a double “‘beep” sound, and the TV 
picture will look like a snow storm. Turn the volume control on the 
TV right down. You don’t need the sound and it will make tuning- 
in much more peaceful! 


If you have a rotary tuner on the TV, then turn it to around 
channel 36 and you should get a black screen with "BBC COM- 
PUTER’ printed in the top left-hand corner. 


If you have a push-button tuner, then press a button that you 
don’t normally use and tune that channel to the computer. 


HINT HINT... . If the TV picture starts jumping up 
and down, then the TV lead plug that fits into the TV 


should be the first suspect. Just tightening it up some- 
times cures the problem. 





2 Making a Start 


In this chapter we are going to start programming using the 
keyboard. The first programs will be very simple, but by trying the 
experiments you will soon get the idea of how to enter programs 
and alter them. One of the best things about computer program- 
ming is that you can always think of ways to improve your prog- 
rams. 


In the last chapter we saw that a computer program is a series of 
instructions that a computer can understand and follow. In this first 
program we are going to ask it to print a name on the screen. 
Before you start, press the CAPS LOCK key (so that the central 
red light at the bottom left of the keyboard is lit). Type in the 
following lines just as they are shown here, remembering to press 
the RETURN key at the end of each line. 


10 PRINT "WHAT IS YOUR NAME" 
20 INPUT NAME$ 

30 PRINT "HELLO” 

40 PRINT NAME$ 

50 END 











HINT HINT .... (1) If you make any spelling mistakes, — 
press theIDELETE]key at the bottom right-hand corner 

of the keyboard until the mistake has been wiped out, 
and type in the line correctly. 
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HINT HINT .... (2) Instead of typing out PRINT every 
time, just P. will do. 


When you have typed in all the program, type RUN 


If all goes well you should see: 
RUN 
WHAT IS YOUR NAME 
2 
which asks you to type in your name, so here goes: 


CHRISTOPHER |RETURN 
(or whatever your name is) 


and the computer prints: 
HELLO 
CHRISTOPHER 


Already you have typed in your first computer program. If the 
program didn’t run for you or you got: 


MISTAKE 
or SYNTAX ERROR 


then you’ve got a bug in the program. Type LIST and 


RETURN | and check the spelling carefully with the list above. 
If any lines are wrong then just type those lines again (including the 


line number) at the bottom of the screen, remembering to press 
the | RETURN | key after each one. Another important thing to 
check is that all BASIC commands are in CAPITAL LETTERS. If 


not, the computer simply won’t recognise them. There is a check- 
list for debugging programs in Appendix 1 at the end of this book. 


Now let’s see how the program worked. Type LIST and 
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RETURN] and you will see: 


10 PRINT "WHAT IS YOUR NAME” 
20 INPUT NAME$ 

30 PRINT "HELLO" 

40 PRINT NAME$ 

50 END 


We gave the computer two quite different types of instruction. 
RUN and LIST are called DIRECT COMMANDS. These instruc- 
tions are obeyed straight away (if there is a stored program to be 
run or listed). The program lines (those numbered 10, 20, etc) are 
called STATEMENT LINES. 


\ Direct Commands 





PRINT, INPUT and END are statements and are some of the 
special BASIC words that the computer can recognise. The state- 
ment lines are numbered and the computer acts on them in the 
correct order. That’s a very good thing because you can type more 
lines in later, and the computer will act on them as if they had been 
typed in the right order. That’s why we’ve numbered the lines 10, 
20, 30 and so on. If we want to add extra lines later we can use 
numbers in between. Let’s try that out. 


Type in: 
25 PRINT [RETURN 


Now type LIST |RETURN] and you will see that line 25 is in 
the right place. 
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Now we'll look at each line in detail and see what each does. 
10 PRINT "WHAT IS YOUR NAME’ 


When the computer comes to the statement PRINT in a pro- 
gram it prints onto the screen any word or STRING of characters 
that are on that line between quotation marks (also known as 
inverted commas —””). So when the computer comes to line 10 it 
will print WHAT IS YOUR NAME onto the screen. 


20 INPUT NAME$ 


When it comes to an INPUT statement the computer will print a 
question mark (?) on the screen and waits for you to type some- 
thing in at the keyboard. Before it can continue with the program 


you must press the [RETURN] key. 


NAMES$ is a variable. We store any words, letters or num- 
bers that we wish the computer to handle in its memory. ‘hese are 
called variables. The computer’s memory Is like a lot of different 
railway wagons. We can tell the computer to store words, letters or 
numbers in those wagons, and they will stay there until we do 
something to alter them. So that the computer can find them again 
when we want them, we tell the computer what name to call the 
wagon. This time we have called the wagon NAME$, but we could 
have called it after any single letter of the alphabet, from A$ to Z$. 
We could have used two letters together, such as AA$, AB§$ right 
through to ZZ$, or else we could use a complete word (like 
NAMES$ or even name$). We must be careful, though, that we 
don’t use one of the special BASIC words — called RESERVED 
words — that the computer recognises as STATEMENTS or 
COMMANDS. There is a list of these in the User Guide (which 
came with the computer). 


It’s very useful to be able to use whole words for variable 
names. They may take a bit longer to type in (and you have 
to be sure that they are correct every time that you use 


them in the program), but they make a program much 
easier for you to read when you want to alter or improve it. 





Using different variable names we can have a lot of different 
variables in the computer’s memory at one time without mixing 
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them up. You will run out of memory space long before you run out 
of variable names! 


The variable that we have used so far has got a $ (dollar) sign at 
the end. This tells the computer to expect a STRING to be input. 
That is a letter, or a line of letters, or even letters and numbers. 
You can easily store up to 256 letters and numbers (known as 
CHARACTERS) in any one string. These string variables are very 
useful in computing because a lot of computer work is to do with 
storing and printing words. But if you want to store numbers, so 
that you can do arithmetic, then you will need to use a different sort 
of variable as we shall see in the next chapter. 


25 PRINT 


Ifa PRINT statement isn’t followed by anything, then the com- 
puter will just leave a blank line on the screen. RUN the program 
to see this and then LIST again. 


30 PRINT "HELLO" 


This line tells the computer to print out HELLO because that 1s 
what is between the quotation marks. 


40 PRINT NAME$ 


This line tells the computer to print out whatever is in the 
variable store that we have called NAMES$. In line 20 we told the 
computer to store what was INPUT into NAME$. So whatever 
you typed in then will be printed out again now. 


50 END 


It shouldn’t be too hard to guess what this line does, it tells the 
computer that this is the end of the program. This line isn’t even 
necessary in this program because if the computer can’t find any 
more lines, it knows that the erd has come. But in some of the 
programs that we will be writing later on, the program may end 
somewhere in the middle of the lines so we will need to use END 
then. 


EDITING THE PROGRAM 


You’ve typed a program into the computer (computer people 
would call this KEYING the program IN). You’ve RUN the 
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program and you've seen how you can add an extra line at any 
time. Now let’s try changing the program. You should have the 
program LISTed on the screen. If not, type LIST and [RETURN 


Now type 


25 [RETURN 


and then LIST again. 
You will see that the computer has now forgotten line 25. 


Getting rid of lines is very easy, but it’s also easy to change lines 
that you want to stay. One way Is simply to retype the whole line. 
That’s what you just did when you typed 25. That replaced the 
line 25 that was there, with a blank line. 


Try typing this: 
30 PRINT "GOOD MORNING” |RETURN 
and then type LIST |RETURN 


Now the new line 30 is in the place of the old one. 


There are ways of editing which are even easier than this. To be 
able to do this, you must look for the CURSOR CONTROL 
KEYS. The cursor is the little flashing underline on the screen that 
tells you where the computer is going to print the next character. 
The cursor control keys are the four keys at the top right hand 
corner of the keyboard that look like this: 





LIST the program so that it is in a convenient part of the screen. 
Now press the # key and you will see that the cursor moves up the 
screen, keep pressing the key and it will carry on moving. Then try 
the —» , v and q— keys as well. 
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Now using these keys, move the cursor until it is at the beginning 
of line 10. Then press the key marked | COPY] in the bottom 
right-hand corner of the keyboard. 


Now you will see that each time that you press the copy key, a 
character from line | 0 is copied onto the bottom line of the screen. 
Carry on until the whole of line 10 has been copied and then add 
the character ; using the keyboard. Now press [RETURN]. To 
see what has happened type LIST . 


If all has gone well, line 10 will now read: 
10 PRINT “WHAT IS YOUR NAME’; 


Now type RUN | RETURN 


Do you see any change in the way that the program runs? The 
question mark for the INPUT comes on the same line as "WHAT 
IS YOUR NAME". Using the character ; we have told the com- 
puter not to move to a new line after PRINTing. Finish running the 
program and then LIST again. Now try COPYing line 30 to add a 
semicolon ; after "GOOD MORNING". (Remember to add it 
after the quotation mark, or else it will just be printed as "GOOD 
MORNING;”.) Then RUN the program again. 


Now you will see that there is a slight problem because there isn’t 
a space between "GOOD MORNING” and the name that you 
entered. This is because when there is a semicolon, the computer 
prints the variable (NAME$) immediately after the end of the 
string ("GOOD MORNING’). So now we need to insert a space in 
the right place using the COPY key. Using the cursor control key, 
move the cursor up to line 30 (LIST the program again if it isn’t 
visible on the screen). Then COPY line 30 as far as the G in 
MORNING. Then using the space bar insert one space between 
the G and the ”, then copy the rest of the line and press 


RETURN |. RUN the program again. 


Sometimes it’s useful to be able to clear the screen. To do this, 


look for the | CONTROL] key (marked CTRL). It’s on the left- 


hand side of the keyboard (next to the A _ key). Press 
CONTROL] and keeping it down, press L at the same time. 


When you do this the screen will clear and the cursor goes to the 
top left-hand corner. But don’t worry, the program is still in the 
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memory. Type LIST | RETURN | to check this. 


HINT HINT .... Don’t CLEAR the screen if you have 
( just typed something and not yet pressed | RETURN 


If you do so, what you have just typed will be kept in the 
memory and added to whatever you type next (even 
though you can’t see it). If you have typed something 
that you don’t want to , then delete it 
using the key. 


Well, it wasn’t a very big program, but already you have found 
out how to tell the computer to do all the following things: 
RUN 
LIST 
PRINT 
INPUT 
INSERT NEW LINES 
DELETE LINES 
INSERT NEW CHARACTERS 
DELETE CHARACTERS 
MOVE CURSOR AROUND SCREEN 
CLEAR SCREEN 


Now type NEW | RETURN | and this will clear the computer’s 
memory for the next program. Another way to do this 1s to press 


the | BREAK] key in the top right-hand corner of the keyboard. 
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HINT HINT .. . . If _you have typed NEW 
RETURN] , or pressed | BREAK} and then real- 


ised that you shouldn’t have, all is not lost. Before you do 
anything else type OLD and the old pro- 
gram will be restored. This doesn’t work however if 
you've switched the computer off. You must be careful 
to type OLD correctly and before anything else. If you 
type @LD (mistaking zero for the letter "O”) then the 
program will be lost. Be warned! 


Here’s another program to type in. Make sure that you put in the 
spaces where they are shown. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 


A$="TYPE IN” 

B$=" A” 

C$="NOTHER" 

D$=" NAME” 

PRINT A$;B$;D$ 

INPUT E$ 

PRINT A$;B$;C$;D$ 

INPUT F$ 

PRINT D$;" NO. 1 WAS ”; E$ 
PRINT D$; ”" NO. 2 WAS "; F$ 
END 


Can you try to work out what this program will do before you 
RUN it? It has one new idea. In lines 10, 20,30 and 40 the program 
gives the computer strings to store in different memory locations. 
Here the = (equals) sign is used to mean “‘is given the value of ”: So 
line 10 means A$ is given the value of "TYPE IN”. Then in lines 50 
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and 70 it is told to PRINT the variables out again in different ways. 
You'll see how important it is to put the spaces in the correct places 
(especially if you got them wrong!). 


RUN the program to see how well it worked. Now you try to 
write a program that makes up two different sentences from the 
same words. If you can’t think of anything else, try these words: 


WHAT IS MY COMPUTER CALLED? 
MY COMPUTER IS CALLED ARNOLD 


(Don’t forget to | BREAK] before you type in a new program or 
else things can get very mixed up!) 


So now we can see the way in which any computer oper- 
ates. 


There is input (in our case from the keyboard) 
There is output (in our case to the screen) 
There is process (the microcomputer) 


There is memory (which holds both the program and the 
variables) 


PROCESS OUTPUT 


MEMORY 


PROGRAM 
VARIABLES 
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LOADING AND SAVING PROGRAMS 


How to play program cassettes into your computer and how to 
record your programs on cassette 


If you have bought your BBC computer from an Acorn dealer, 
then he will have supplied a lead to suit your cassette recorder. If 
you bought your computer by mail order, then you were possibly 
supplied with a lead with bare wires at one end. This will need 
making up with plugs. If you are not sure how to do this then you 
should get someone who knows about electronics to help you, or 
get a properly made up lead from one of the companies who 
advertise in computer magazines. 


If you don’t already have a suitable cassette recorder then you 
should choose one with care, because experience has shown that 
not all are really suitable. It is not necessary to have a very expen- 
sive recorder, but it seems that in general those that use DIN plugs 
are easier to use. There should also be a small jack plug to switch 
the motor on or off. 


We had a lot of difficulty with SAVing and LOADing pro- 
grams until we bought a ‘“‘computer-compatible”’ recorder from a 
high street bookshop. This has proved most satisfactory. If you 
already have a cassette recorder, of course, there is no reason to 
buy another one unless you have a problem with the one that you 
have. 


Connecting 


1. With jack plugs 
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2. With a DIN plug 





Many cassette recorders make a loud noise when LOADing using the 
DIN plug. Put a blank 3.5mm jack plug into the “earphone” socket 
and you will be able to LOAD in peace. 


Loading 


Your first go at LOADing will probably be with the WELCOME 
cassette supplied with the computer. This is useful because the first 
program on that tape helps you to discover the best VOLUME 
setting on your recorder. 


There are two commands that you can use: LOAD and CHAIN. 
Both LOAD and CHAIN will search for named programs. But 
probably it is most useful to use the command: 


LOAD” ” | RETURN 


Press PLAY on the cassette recorder and if the volume ts cor- 
rectly set, the name of the next program on the cassette is soon 
shown on the screen. Then the screen shows a series of numbers, 
which are the numbers of the blocks in which the program was 
recorded. The numbers are 1n hexadecimal, so that after 09 there 1s 
OA, OB, etc, to OF and then 10. When all the program has been 
loaded, another number with four digits is shown and the computer 
gives off a beep. Don’t stop the recorder before the beep. Then you 
can RUN or LIST the program. 


CHAIN” ” | RETURN 


This is the same as LOAD”" except that as soon as the program 
is LOADed it is automatically RUN. 
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Problems 


If the program doesn’t LOAD properly this will show itself in one 
of three ways: 


1 Nothing happens on the screen. Check connections and VOL- 
UME setting. Also, if there is a TONE control on the recorder 
this should be set to 10 or MAX or HIGH. 


2 The text on the screen scrolls up with the word Block? or Data? 
It is only necessary to rewind the tape for the blocks actually 
missed. Try a fine adjustment of the volume control. If you use 
jack plugs it may be necessary to unplug the RECORD lead 
when LOADING, and the REPLAY lead when SAVING. 


3 The program appears to LOAD correctly, but there is no beep 
at the end, and the message “Bad Program’’ is displayed when it 
is RUN. Try LOADING again and watch carefully. The first 
block to be shown on the screen should be 00. If the first block 
shown is 01, then the first block has been corrupted and cannot 
be read. This has been a problem which happens occasionally 
with early BBC computers, but shouldn’t happen with later 
ones. If you have this problem then a solution is given under 
Saving Programs, below. 


Saving Programs 


If you have a program in the computer’s memory that you want to 
record, then you'll need to think of a name for it. You can call it 
anything that helps you remember what the program is about, 
provided that the name has no more than eight letters. Let’s say we 
are going to call our program "SORTLIST”. 


To SAVE this on to cassette, you will need a cassette on which to 
record. Short cassettes are better than long cassettes, because with 
long cassettes it is either very difficult to find the program that you 
want, or you waste a lot of tape. C10 to C15 cassettes are sold for 
computer use and these are very convenient. 


Put the cassette into the recorder and type: 


SAVE”"SORTLIST” | RETURN}. 


The computer will reply with 
"RECORD AND RETURN". 
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Start the cassette recorder. Make sure that the tape is past the 
leader and then press . The computer will then start 
sending the program to the cassette recorder and the screen will 
show the blocks as they are SAVEd (in the same way as when 
programs are LOADed). 


Keep a note of what programs you record on the cassette, 
including the counter number (always start the counter at 000 at 
the start of the cassette). Many programs have been tragically lost 
because something else has been recorded over them! If you 
over-record even a small part of a program it can be ruined. 


Many people like to SAVE a program twice, in case there is a 
problem with the recording. If you want to be sure, you can check 
the recording before you clear the program from the memory. 
Here is one way to do it: 


SAVE the program normally. 
Rewind the cassette to the beginning of the program. 
Type in: 

*LOAD 8000 


The program is then LOADed, but into a part of the computer 
where it can do no harm to the original program which is still in the 
memory. 


If the recorded program appears to LOAD correctly, then the 
recording is all right. If it won’t LOAD, then SAVE the program 
again and test again. 


3 Counting on Your Computer 


Your computer can, of course, count. We know what you’ re asking 
yourself. “‘Can my computer do my homework for me?”’. Well, the 
answer Is certainly “‘yes... but’’. Remember that the computer can 
only do exactly what it is told to. The great strength of a computer 
is that once it is told how to do something, it can do it very quickly 
and very accurately. Even so, it can’t work out how to solve 
problems by itself. 


If you want your computer to do your homework for you, you 
have to work out exactly how to do it, and then tell your computer 
how, in a way that it can understand. 


Doing arithmetic on your computer is easy. Try typing this: 
P.2+2 | RETURN 
and the computer will print: 
4 


We have used a DIRECT COMMAND just as we did in the last 
chapter. Here are some more: 


P. 8-3 [RETURN 
P. 6/2 [RETURN] (this means $ or 6 divided by 2) 


P. 7*3 |RETURN| (this means 7 xX 3) 


Try some more for yourself. 


Now we can try these functions in a program. 
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Type this in: 


16 AS="THPUT A" 

26 BS="NOTHER" 

38 CS=" HUMBER" 

46 PRIHT ASICS 

28 IWPUT A 

69 PRINT AS; Bs CS 

76 THPUT 6 

SQ PRINT Ai" PLUS "GBs" = "JA+B 
96 PRINT Ai" MIHUS "GBs" = "JAB 
166 PRIHT As” DIVIDED BY "iBs" = “IAB 
119 PRINT Ai" TIMES "Bi" = "| AE 
126 EHD 


RUN the program a few times INPUTting different numbers 
each time. Now type LIST |RETURN| . 


Have you noticed that as well as the string variables A$,B$ and 
C$, there are also A and B (starting in lines 50 and 70). Variables 
without a $ sign just stand for numbers, not words or strings. You 
can use A and A$ in the same program, the computer will not mix 
them up. 


The computer can also do several things in one sum — for 
example, try this (don’t | BREAK] yet): 


P.2+3*4 


(before you press LRETURN] try to work out what the answer 
will be — will it be 20 or 147) 


When doing a sum with several different operations, your com- 
puter will do them in a special order. It will always do * (times) and 
/ (divide) before + (plus) or — (minus). 


Try to work out the answer to these yourself before you try 
them. 


P. 15-2*5 
P. 60/4+5 
P. 5+16*3-4 
P. 20/5+4*2 


COUNTING ON YOUR COMPUTER 31 


It’s important to know what answer to expect, because when we 
want to program the computer to do something, we must know 
how to tell it exactly what to do. 


If we want it to do things in a different order we can tell it how to 
do so using brackets ( ). Your computer will do anything inside 
brackets first. 


Try: 
P. 15-2*5 
and then: 
P. (15-2)*5 
Try to work these out yourself first, before trying them on your 
computer. 
P. 6+15-3*2 
P. 6+(15-3)*2 
P. (6+15-3)*2 
P. (6+15)-3*2 


HINT HINT .... Be careful to check that you have the 
same number of ( brackets as ) ones. If not, the program 
will crash and you will get the error message — "MIS- 
SING". 


Your computer can also do other types of sums which would be 
complicated for us to do by ourselves. Examples of these are 
squares and square roots. If you square a number, you multiply it 
by itself. Thus the square of 5 (or 5 squared as it is usually called) is 
5*5 = 25. 10 squared is 10*10 = 100. 

Try this: 

P. 5*5 


5 squared is usually written down like this: 57. 
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So try this: 
P.SA2 


(this may appear as 5 #2 on the screen. Do you see that this is like 
5??). 


Here we are raising 5 to the power of 2 (this is a mathematical 
way of saying that we multiply it by itself). 


Now try this: 
P.5A3 


The answer will be 125 which 1s 5*5*5, or 5 raised to the power 
of 3. 


Coming back to squares, the computer can also work out the 
square root of a number. If you start off with a number, let’s say 25, 
then the square root is the number which would have to be squared 
to make 25. In this case the answer is simple (because we know it 
already). 5 is the square root of 25. But the computer can work 
out the square root of any number. 


Try: 
P. SQR(25) 
P. SQR(100) 
P. SQR(2) 
P. SQR(3*5) 
P. SQR(3.1412) 


Now we can try putting this into a program. If you haven’t typed 
NEW yet, then alter the last program as follows: 


80 P."THE SQUAREROOT OF "3A;" TIMES "5B; 
Wo "sSQR(A*B) 


90 
100 
[RETURN | 


110 | RETURN 


Try running this with different numbers. Try entering the same 
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numbers twice in the same RUN. 


Now |BREAK] and try writing a program which will INPUT 
four numbers and then find their average. To do this the computer 


must ‘add them together and then divide the total by four. When 
you have written it, and entered it into the computer, test it by 
INPUTting the numbers 5,.7, 14 and 6. If the program is correct 
the answer will be 8. Then try running it with other numbers. 


Here’s a program to work out the area of a rectangle. It invites 
you to input the lengths of the sides. (Don’t forget to 


BREAK jor type NEW before you enter it.) 


14 THMPUT "HOW WICE" WIDE 

26 INPUT "HOM DEEP". DEEP 

36 PRINT "RARER = ";WIDE#DEEP 
46 EMD 


Did you notice the new way to use the INPUT statement? If 
you put a word or string in quotation marks followed by a comma 
between INPUT and the variable name then the computer will 
print it. This is neater and saves a program line. 









HINT HINT ....In maths, we would understand 2D to 
mean 2x D. In BASIC we must have the multiply sign as 
2*D for the computer to be able to understand. 





Now let’s add to this program. Add this line: 


46 PRINT "TOTAL LEHGTH CF ALL SIDES = 
"3 2k WIDE+DE ER 3 
[4 EMD 


Try it with a few lengths. 


Now we can change it to give the volume of a solid. Change 
these lines: 
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30 IHPUT "HOW HIGH".HIGH 

46 FRIWNT "YOLUME = "J WIDEXDEEFP#HIGH 

SH FRIHT "SURFACE AREA = "; 2*C WIDEXDE 
EP+DEEFXHIGH+WIDEXHIGH > 

60 EMD 


To measure circles, your computer recognises the word PI for 
3.14159265, so you don’t have to remember exactly what it is. 
Here’s a simple program to measure a circle: 


19 IHPUT "RADIUS". CRADIUS 

20 PRIHT "AREA = "jPI#CRADIUS*S 

3@ PRIHT "CIRCUMFERENCE = "i 2ePT&#CRAOIUS 
4@ EHD 


If you’ve already learnt how to measure areas and solids in 
school then you’ll be able to think of lots more things to try. 


Now try this program (press first): 
16 PRIHWT "HOW MUCH POCKET MOHWE' PER | 
EEK « PEMCE 3" 
26 IHPUT MOHE' 
3@ PRINT "IM 1 YEAR ‘YOU WILL GET "GM 
OHEV#5e2~ 108 
44 WEEKS=160066-MONHE'T 
26 FRIWT "IT WILL TAKE ‘(OU "SWEEKS;: " 
WEEKS TO SAVE £160" 
68 EMD 
Sometimes the answers in programs like this have lots of decimal 
places which look untidy and confusing on the screen. You can 
control this using another BASIC statement which your computer 
understands, INT (which stands for INTEGER). What’s an 
integer? It just means a whole number, that is, one without any 
fractions or decimal places. 


Try this: 
P. INT(2.5843) 


Note that the number after INT must be in brackets. The answer 
will be 2. 
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Using INT you will get the nearest whole number below the one 
that you put in. Now change line 40 of the Pocket Money program 
to: 


46 WEEKS=IHTS 1o600-MOHE'T 3 


Of course, the answer may not be strictly accurate, because if the 
Original answer was (say) 199.9999 weeks, then the new answer 
will be 199 weeks. So 1f you were planning to have saved a certain 
amount by a certain date, then you could still be short of cash when 
that day arrived. So it may be safer to make line 40 read: 


40 WEEKS=IHT" 1Q686-MONWE'? o+1 


Here’s a program that will print out a multiplication table. 






HINT HINT ....Remember to use the |COPY | key 
to save a lot of effort. 






18 INPUT "HUMBER ". HUMBER 

26 PRINT NMUMBERS" TIMES TABLE" 

38 PRIWHT 

46 FRIWNT "1 #4 "“GNUMBERJ" = "SJ HUMBER 
S06 PRINT "2 «& "JHUMBERS" = "5 HUMBERK2 
60 PRINT "3 4 "J HUMBERS" = "GHUMBERKS 
7O PRINT "4 « "GNUMBERS" = "i HUMBERS4 
BQ PRINT "S # "GHUMBERS" = "GHUMBERSS 
99 PRINT "6 % "jGHUMBERS" = "J HUMBER*E 
196 PRIHT "7 & "GHUMBERS" = "sS HUMBER*#? 
119 PRINT "@ & "jHUMBERI" = "J HUMBER€S 
126 PRIHT "9 4 "jHUMBERS" = "i MUMBER#9 
1390 PRIHT "16 % "HUMBER." = "GJ HUMNBER#1G 
146 EMD 


RUN this. Note that this program will not only work with 
integers (1, 2, 3, etc) but also with numbers with decimal places 
(1.3, 2.75, 3.142, etc). Try a few of these. 
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In a computer program, the method that we use to solve a 


problem is known as the algorithm. 





4 Branch Line 


It’s said that a computer can only: store and retrieve information, 
compare two pieces of information, and do arithmetic. We’ve 
already seen how it can store information and do arithmetic. Now 
we're going to use it to compare pieces of information. First of all, 
we need to get to know some new symbols. 


= we have met already, meaning “‘is given the value of” 
It is also used sometimes to mean “‘is equal to”’ 


> means “‘is greater than”’ 
< means “‘is less than” 


<> used together mean “‘is not equal to” 
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Try this: 


10 THRFUT "First number "FIRST 

26 JHPUT "Second timber ". SECOHD 

36 IF FIRST=SECOHD THEN FPRINMT "Both ru 
mbers are edual": EHD 

49 IF FIRST?SECOHD THEM FRIWT FIRST; " 


is sreater than "3s SECOHD : EHD 
9H FRIWMT FIRSTi" is less than "i SECOHD 
Be EMD 


HINT HINT .... (1) If you are entering a line and it is 
too big to fit across the screen, don’t worry, just keep on 
typing. Don’t press until before the next 
line number. The computer will accept lines of up to 255 
characters long. 


HINT HINT ....(2) To get small letters to print on the 
screen (as in "First number”) press the CAPS LOCK key 
(second up left-hand side) until the CAPS LOCK 
LIGHT (middle light) goes out. Don’t forget to press it 
again (so that the light comies ON) before typing a 
BASIC command. 





BRANCH LINE 39 


Quite a few new ideas here. First of all, all the programs that we 
have used up until now have been linear, that is the instructions 
were in a simple line, like a railway track. Now we have a program 
thdt branches. The computer makes comparisons so that it will 
know which route to follow. 


Now that the program isn’t so simple it will help us if we make a 
map — this 1s called a flowchart. 


There are three types of shape on a flowchart. 


START or END 


SOME FORM OF ACTION 


A COMPARISON 


OLE 


Here’s the flowchart of a simple program: 


START 


INPUT 
A 
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And here is the flowchart of the program that we have Just 
entered into the computer: 


START 


INPUT 
FIRST 


INPUT 
SECOND 


YES PRINT 
"FIRST = 


SECOND” 





END 


PRINT 


> 
SECOND" 





NO END 


PRINT 
"FIRST 


< 
SECOND” 





END 
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You can see from this that the program can END in any of three 
places, depending on the values of A and B. 


Lines 10 and 20 invite you to enter two numbers. Line 30 makes 
the first comparison. 
30 IF FIRST=SECOHD THEM FRINMT "Both ri. 
mbers are equal": EHD 


This is called an IF .. . THEN statement. IF the condition 
described (FIRST = SECOND) is true, THEN the rest of the line 
is performed. If not, the program passes straight on to the next line. 
Note that here we have a multi-statement line: if the message is 
printed, then the program is ended, otherwise it would pass on to 
line 40. 


49 IF FIRST?SECOHD THEM PRINT FIRST: " 
js sreater than "i SECOND: END 


Again, if the condition is true then the message is printed and the 
program ended. 


If FIRST is not equal to SECOND, nor greater than SECOND, 
then it must be Jess than SECOND, so line 50 doesn’t need to 
make a comparison, but just prints the message. 


S09 FPRINT FIRST:i" is less than "SECOHD 


RUN this program a few times with different numbers and check 
that it works. Try entering some negative numbers like this: 


—345 -346 


You may be surprised to see that — 345 is greater than —346, but 
—346 is the lower number of the two. 


Another way that an IF... .THEN statement can be used is to 
send the program to a different line, like this: 


90 IF FIRST > SECOND THEN 120 
100 PRINT FIRST;” is not greater than” ;SECOND 
110 GOTO 130 
120 PRINT FIRST," is greater than " ;SECOND 
130 INPUT THIRD 
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90 







IS 


FIRST>SECOND 
? 


NO 





YES 


PRINT PRINT 


FIRST "IS GREATER 
THAN” SECOND 


FIRST "IS NOT 
GREATER THAN" 
SECOND 





130 


INPUT 
THIRD 


In line 90, IF the condition is true, THEN the program jumps to 
line 120. In line 110, the GOTO statement makes the program 
jump to line 130 without any conditions. 


When you are trying to solve a tricky problem try drawing a 
flowchart. Probably you’ll have to cross out the first few attempts 
and start again, but they are really helpful in sorting out 
algorithms. Just a piece of paper and a pencil (and rubber) will do, 
but if you like things to look neat, then a flowchart template 
(stencil) like the one shown on page 43 will be useful. 


GOTO can be a useful statement but if the jump is for more than 
one or two lines, or if there are more than one or two GOTOs in a 
program, then it can get very confusing. BBC BASIC has some 
more powerful commands for moving the program around which 
we will learn to use later. 


BRANCH LINE 43 


we 12:13 4 15 6 17 16 iy 2! 22 23 26 25 26 27 28 2 N32HMIS HI 3899 a 1) 42 49 44 45 46 47 48 49 OSI 52 3 54 55 5 


DATA PROCESSING STANDARDS 


tab. 
+f 


As well as working with numbers, =, < and > also work with 
letters, words and strings. These are checked for equality, or 
alphabetical order. B would be greater than A, but Jess than C. 
Words are checked for order, as they would be in a dictionary. Do 
remember though, that the computer will compare words and 
strings very thoroughly. If the slightest detail is wrong, an extra 
space, or small letters instead of capitals, then the strings cannot be 
equal. Also, the computer cannot know that a word Is spelt incor- 
rectly, and will compare it exactly as it is. 





Try this: 
10 INPUT "First word”, FIRST$ 


20 INPUT "Second word’”,SECOND$ 


30 IF FIRST$ = SECOND$ THEN PRINT "they are 
both the same word”:END 
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40 IFFIRST$ < SECOND$ THEN PRINT FIRST$;” 
";SECOND$ ELSE PRINT SECONDS; 
” "“FIRST$ 


50 END 


The special interest here is line 40 which is a more powerful 
version of the IF... THEN statement—anIF... THEN... ELSE 
Statement. 


It works like this. If FIRSTS is less than SECOND$, then it 
prints FIRST$ before SECONDS$ so that they are in alphabetical 
order. If FIRST$ is not less than SECOND$ (and we know that it’s 
not equal to SECOND, because we tested that in line 30) then 
SECOND is printed before FIRST. 


Try the programs with different letters, words and even num- 
bers. 


Try these strings: 


BOY BOY 
GREEN GROCER GREENGROCER 
345 346 

—345 —346 


Two interesting things to note, GREEN GROCER comes 
before GREENGROCER because a space has a lower value than 
a G. Also, —345 1s considered less than —346. This is because this 
program is only looking at the value of the string and doesn’t 
recognise the minus sign for what it is. 
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WORDSQUARE 1 


Here is a wordsquare which contains 28 of the words which 
we have met so far. To make it very easy, there is a list of the 
words and two are shown on the square. 


Zz 


R 


We cc wWrrn a 


S 
Q 
U 
A 
R 
E 
R 
O 
O 
T 
L 
H 
S 
T 
L 
D 


eHKemMHOAP>FA - TMAQ< Ire Zfm>dD 
“<maouacezrnaAmoamirA Z2weeyet 
“DTOoOr?-r yromZzzKH4 


UMAURA rp 
STmMAAPeKHONOWROWR CrzZzZ0QOr wa 


AA rFPAA OCH yTornrr eH ZH 
>Me nA AAMDRKHe QTD OM XX 
ZOrnr OoOagcorKUNUuqnAK KRHA 
nAOoOmMAmA OwnAHArMrere7?D < 


BASIC END 

BBCCOMPUTER EQUAL 

BUG GOTO PROGRAM 
CAPSLOCK INPUT RETURN 
CLS INTEGER RUN 


CONTROL KEYBOARD 

COPY LIST 

CURSOR MINUS STRING 
DELETE MULTIPLY SQUAREROOT 
DIVIDE NEW VARIABLE 





5 Looping the Loop 


CE 


ary 
a Ht 


Now we will try a very useful function, the FOR...TO... NEXT 
loop. You know by now that your computer can do sums very 
quickly, far more quickly than we can type them in. So we will let it 
feed in the numbers itself. We’ll just tell it when to start, and when 
to stop! 


Type this in (remember to | BREAK] first): 


19 FOR COUHTER=1 TO 18 
26 FRIHT COUHTER 

36 HEAT COUNTER 

40 PRIHT "EMD" 

2@ EHD 





and RUN. Your computer will print all the numbers from 1 to 10. 
How does this work? When it comes to line 10 in the program, the 
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computer will give the variable COUNTER the first value of the 
FOR statement. Thus, COUNTER has the value of 1, which is 
printed in line 20, followed by a space. When it comes to line 30, 
NEXT tells the computer to go back to line 10, and add 1 to the 
value of COUNTER. Then it checks that COUNTER is now no 
larger than the number following the "TO” in line 10. It keeps on 
going around this loop adding 1 to the value of COUNTER each 
time, until COUNTER is bigger than the number following the 
"TO". When COUNTER is bigger than the "TO" value, then the 
program jumps to the line following NEXT COUNTER. 


Change line 10 to read: 
16 FOR COUNTER=1 TO 166 
RUN it to see what happens. Now try altering line 10 to read: 


19 FOR COUNTER=1 TO 19@ STEP 4 


Do you see what happens now? Instead of adding 1 to 
COUNTER each time around the loop, the computer adds 4. 
Notice that the last number to be printed is 97 and not 100. This is 
because the next number after 97 would be 101, but this is bigger 
than 100 so the program jumps to line 40 without printing it. 












HINT HINT ....(1) When you want to LIST a program 
with loops, first type LISTO7 , and then 
LIST. This way the computer will add extra spaces in the 
listing to make it easier to read. But be careful if you use 
the COPY key after using LISTs. See ““Wrong spaces” in 
Appendix 1. 


HINT HINT .... (2) Instead of typing out NEXT each 
time, just type N. 
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Now try these: 


18 FOR COUNTER=1 TO 160 STEP 2.75 
16 FOR COUNTER=51.7 TO 33.9 STEP @.42 
16 FOR COUNTER=28 TO 4 STEP -1 


Now let’s use a FOR. . .NEXT loop to do something useful. 
We'll use it to improve the Times Table program which we wrote in 
Chapter 3. Try this: 


16 INPUT "WHICH TIMES TABLE". TIMES 

28 CLS 

36 PRINT TIMES;" TIMES TABLE" 

4G PRINT 

29 FOR COUNTER=6 TO 10 

66 PRINTTIMES:" « "ICOUNTERS" = "i 
TIMES# COUNTER 

76 HE*T COUNTER 

88 END 


This is much shorter than the previous program. Try it with a few 
different values, then try changing the loop parameter in line 50. 
For example try these: 


2 FOR COUHTER=247" To 2é4 
~9 FOR COUNTER=16 TO @ STEP-1 


Did you also see CLS in line 20? This clears the screen. It has the 
same effect as CONTROL-L, but can be used in a program. 


Now we’ll try an extra feature of FOR. . .NEXT loops, that is 
NESTED LOOPS. These are loops inside loops, like nested boxes. 
First, alter the last program so that it is back to how it was originally 
(SO FOR COUNTER = 0 TO 10). Then change lines 10 and 80 
and add lines 90 to 130 so that it becomes: 


16 FOR TIMES=6 TO 148 

26 CLS 

30 PRINT TIMES;”" TIMES TABLE" 
46 PRINT 

96 FOR COUNTER=6 TO 10 
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66 PRIHTTIMNES;:" & "SG COUHTER:" = "TIM 
ES#4COUHTER 

74 HEXT COUHTER 

86 PRINT 

99 IF TIMES=19 THEH 124 

160 PRINT "FOR WHEAT TABLE PRESS AH KE 
a Th] 

116 *S=GETS 

126 WEAT TIMES 

136 EHD 


Now we have two loops, the one that we had last time from lines 
50 to 70 which works out the lines for one table, and the larger loop 
from lines 10 to 130 (the whole program in fact) which gives the 
number for each table. 


There are many uses for nested loops, and you will come across 
them when you type in programs from magazines, etc. 





The important thing to remember is that every FOR must have a 
NEXT, and every NEXT must have a FOR. If not, the program 
won’t work and you may get an error message from the computer 
which says: 


NEXT WITHOUT FOR ERROR IN LINE... 
which can be very helpful for finding where you have gone wrong. 
Remember, in order to see your loops more easily when 
you LIST the program, type LISTO7 |RETURN] LIST 
RETURN || . This will list the program on the screen with each 
level of nested loops set in (indented) so that they can be more 


easily checked. 
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FOR. . .NEXT loops are very common, especially in programs 
printed in magazines. This is because FOR. . .NEXT loops can be 
used on all personal computers. But the BBC and Electron com- 
puters understand another similar command which is very useful. 
This is REPEAT... UNTIL. This works like the FOR... NEXT 
loop except that we don’t need to know in advance how many times 
the program must go round the loop. For example: 


16 REPEAT 

26 randomnumber=RNDe¢ 18 > 

36 PRIWNT srandomnumbers" # "; 
49 UHTIL randomnumber=3 





HINT HINT... . (1) Notice that the variable random- 
number has been entered in lower case (small letters). 
This is useful because it is then much easier to tell the 
difference between variable names and BASIC words 
(which have to be in capital letters). 








HINT HINT....(2) RND is explained at the end of the 
chapter. 






REPEAT. ..UNTIL loops are always performed at least once. 
They are a bit faster than FOR. . .NEXT loops, although you will 
only notice this if the program goes around the loop many times. 


As with FOR. . .NEXT, typing LISTO7 [RETURN] LIST 
RETURN | will show up the REPEAT. . .UNTIL loops. 
REPEAT...UNTIL loops can be nested like FOR. ..NEXT loops. 


There is another new trick which has been used in the Times 
Tables program. Did you notice it? It’s in lines 100 and 110. 


If you want the computer to wait until you are ready, then these 
lines can be very useful. 


110 X$ = GET$ 
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GETS$ is an input from the keyboard but in this case it’s not 


necessary to press [RETURN] , the computer waits for a key to 
be pressed and then accepts the character as soon as it’s input. 


In this case it doesn’t matter what character is entered, because it 
is just a signal to the computer that it can carry on. 


You will have seen that the computer performs its various func- 
tions very quickly (and the BBC computer is one of the fastest to 
work in BASIC). But there are times when it is important to get it 
to work even faster. One example is when processing a lot of data, 
to do thousands of calculations. Another is in computer games with 
moving graphics. Here, each movement on the screen will need the 
computer to do many calculations and loops. To speed things up it 
is possible to use integer variables. We have already met integers in 
Chapter 3. They are whole numbers, without fractions or decimal 
parts. If we tell the computer that a variable is only going to contain 
an integer number, then it can work much faster. It also uses less 
memory space. To do this we label the variable with %. So A% or 
number% are integer variables, whereas A or number would be 
ordinary ones (otherwise known as floating point variables, 
because the decimal point can be anywhere in the number). 


Try this: 


1@ CLS 

2a FPRIWT’ *¢*’"Calculatina" 

36 TIME=6 

409 Jx=@ 

949 FOR Ix=1 TO 166e 

66 JnxsJIne+1% 

76 HEXT I% 

889 timels=TIME 

90 TIME=a 

166 J=G 

119 FOR I=1 TO 1966 
126 J=J+] 

136 WEXT I 

146 times=TIMeE 

15@ PRINT’ “?“timels.-100.timec-160 
166 PRIHT" Integer variables work in " 
170 PRIHTi IHT¢ timel<-timec#¥1a@ 5; 
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This program has two loops, and goes around each 1000 times. 
During the first loop 1% is added to J% (in line 60). In the second 
loop, I is added to J (line 120). 


TIME is the computer’s internal clock. In lines 30 and 90 it is 
zeroed then it will count up in 1/100ths of a second until zeroed 
again. This is an example where our variables time1% and time2 
need to be in lower case letters to avoid confusion with a BASIC 
word. 


Timel % and time2 will be shown in seconds and you will prob- 
ably find that the integer loop runs about twice as fast as the other. 
Try altering the loops to go round 10,000 times and see if there is 
any difference. 


By the way, did you notice the four apostrophies (’) in line 20? 
Each causes the cursor to jump down a line so that the text 1s lower 
down the screen. 


RND 


RND was shown in the short program on page 51. This isa BASIC 
statement that you will come across many times, especially in 
games programs. RND is short for RANDOM and will give a 
random number. 


RND(1) will give a number anywhere between 0 and 0.999999. 

RND(10) will give a integer number anywhere between 1 and 10. 
RND(100) will give an integer number anywhere between 1 and 
100. 


Any other number in the brackets will give an integer number 
anywhere between itself and 1. 


Try this: 


10 INPUT "INPUT HUMBER". HUMBER 
26 FOR I=1 TO iw 
36 FRINT j;RNOONUMBER ai" - "; 
46 HEAT 
94 PRIWT 
6@ EMD 
RND is very useful where you want a “‘surprise’”’ number and is 
used in games and any program where you need “artificial”’ data. 


6 Hip Hip Array 


Computer programs deal with information. This needs to be stored 
in the computer’s memory and then manipulated during the prog- 
ram RUN. In this chapter we are going to look at ways of arranging 
this information in arrays so that it will be easy to rearrange, and 
then we will look at a way of getting it into the memory when we 
load the program using DATA statements. 


First of all let’s create some values. Type in this program and 
RUN it, we’ll look at how it works afterwards. 












HINT HINT .... To save typing in the line number each 
time, first type AUTO {RETURN . The computer 


will automatically type in the next line number each time 
that | RETURN] is pressed. To stop it doing this, 
after |RETURN| ing the last line press | ESCAPE 


and it will go back to normal. 








Try this: 


ia DIM Fea 
fs im Fie Jus jp Trt | 


mk Pi Dose Leo 
Ab MET 

mil Fi feed Ti 
Gi PRINT To o3 
Pht Mba T 

a 
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Type RUN and the result will be something like this (but differ- 
ent every time). 


l 5 2 7 


Well, a bit of explanation is needed here. What we have done is 
to set up an array. That is, a list of variables, all with the same 
name, but each followed by a number in brackets A(1), A(2), 
A(3), A(4). 


Computer people call these by a long name — subscripted vari- 
ables, which just means that mathematicians would have written 
the numbers below the line like this A,, A, Az;, etc. It’s not 
convenient to do this on a computer so we put the numbers in 
brackets, but still use the long name. 


Now let’s look at each line in turn. 
10 DIM A(4) 


When we are going to use an array, we must warn the computer 
in advance, so that it can leave enough storage space in the mem- 
ory. We use a DIM (dimension) statement. If we want to use an 
array of 20 variables we would use DIM A(20). If you need to save. 
space youcould use DIM A(19). Because a computer starts count- 
ing at 0, 0-19 gives 20. If we haven’t dimensioned enough space 
then when we RUN the program we will get the error message: 
ARRAY. You must put the DIM statement right at the beginning 
of the program because you cannot change it during a RUN. 


20 FORT =1TO4 
This is a simple loop parameter as we used in Chapter 5. 
30 AC) = RND(10) 


Each time the program goes round the loop the value of I will 
increase by 1 until it gets to 4. So in this line we declare the 
variables in the array, as the program goes around the loop the 
values will be: 


A(1) = RND(10) 
A(2) = RND(10) 
A(3) = RND(10) 
A(4) = RND(10) 
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Lines 50 to 70 are another loop which prints out the values in the 
array. 


Now alter the program and add more lines so that it is like this 
(using the COPY key will save a lot of typing): 


CIM Ado. Be 4s 
FOR J=1 TO 4 

Ae T s=RAO 1A: Be Tooke 1 
MEY T 

FOR [=1 TO 4 
PRIMTAS I 3; 

HEAT 

Fre [PT 

FOR [=1 To 4 
PRIMTE! I 33 

MET 

PRET MT 

Fike! [T=] TO +4 
PRIMTAG [ote Ia 
MEH T 

EMC 


et ye Ty ey 


my 
i fs 


WW co jy) OW =. Go fa 
Pai mt mm 


i Gs 


Min bother & 
fi Mi Mi © Ea me 


Now RUN the program and the result will look something like 
this: 


Fld 
4 


Ms 


11 1 


‘t— 


Het m6 
fai ~~) 


Now we have two subscripted variables, A and B. Each array 
contains four random numbers. Lines 50 to 70 print out A. Lines 
80 to 100 print B. Lines 130 to 150 print out A+B. 


So the subscript (the number in brackets) can be computed, just 
as the values of the variables can. This is a very important feature 
which 1s used in a lot of programs. 
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Now try this: 


Le 
ead 
EI 
hel 
ml 


Fit GRASE SIRE TOM MUMEE RIS shoe 
Ditt Heo& os 

PRIMTCEMTER & MiUuMBERS 

Fork J=j To & 

Fe CHT MUM ER GT: 

IHPUT Me 1: 

NEXT 

REM aR SORT HUMBER CIT aback 
FOR I=S TO 2 STEP ~1 

FOR Je2 TO 1 

IF Me J0PHe ei THEN ise 
Leake ot 

x De = a 

Bi dee pets 

MES T 

HEA TT 

REM # FRIMT CuT SORTED HUMBER of 
Pile [=] TO & 

FR TMT To 

MEST I 

Fic 


This 1s a sort routine which works by swapping around the 
contents of an array N(1)...N(5). The program itself is from lines 
90 to 160. There are two nested loops and these compare array 
items next to each other and if a larger item comes before a smaller 
one, it swaps them around. 


HINT HINT. . . Did you notice lines 10, 80 and 170? 
These lines use the REM statement. This is short for 
REMARK. The computer ignores anything printed ona 
line after REM, so it does not affect the program. REM 
statements are very useful for anyone looking at a pro- 
gram to see how it works. 
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As acomputer can only do one thing at a time, it’s not possible to 
swap two items directly, so in lines 120 and 140, the variable X is 
used like a railway siding to shunt one number into while the other 
is swapped. 





This type of sort routine is called a bubble sort. There are many 
other different ways of sorting, but this is a good general-purpose 
method. It can be adapted for larger lists, or for dealing with 
strings. 


For example, if we want it to handle a different number of 
numbers then we would have to change these lines (remember to 
use the COPY and cursor control keys to save typing). 


15 DTHRFUT'HOM MAY HUBER So hcnimates 
26 GIT Ae howemereg 3 

3a FRIMT"EMTER "a heawmareg 3" MUPBERS" 
se FOR T=1 To houwmaris 

mel FOS [ehownans TO 2 STEF-1 

lee For T=1l TO bhoowmatig 


G 
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And to handle letters, words or strings to put them into alphabet- 
ical order (as you would find in a dictionary for instance), make 
these changes: 


16 REM ## ENTER WHAMES x 

15 DHRPUT "HOW MAY AMES". hows 
EOIN Met hoimares 3 

SE FPRIMTCEHTER "akouwmare i" AMES" 
439 FOR J=1 TO howmares 

SW PRIWMT"HWAME "as 

BE THPUT Msc I 

7O WERT 

m4 REM ak SORT KHAMES +¢ 

Sa FOR T=hounans TO 2 STEF-1 

190 FoR J=-2 To I 

116 IF Hse JoShse J-1 5 THEM 158 

128 WHR Io 

130 Hee I o=Nse Jd 3 

Lei Hse 1 b= 

156 HEAT 

166 HESTI 

176 FEM #* PRIAHT OUT SORTED HAMES +: 
Se FOR I=] TO howmariy 

OW FPRIMTHSc I 3 

4 HESTI 

16 EMD 


In the next chapter there’s a program to sort out different items 
into different orders. 


Many programs, and especially many games programs, need to 
have work numbers that can be used during the run. If we have to 
store these as variables, like this: 


5 


20 A=27.3:B=4:C=321:b=40aa*As=6a0M 


J 


then it would be very inconvenient, we would use up a lot of 
memory space. We can store this sort of information using DATA 
statements. These are written into the program and although we 
can change the programs whenever we want to, the DATA state- 
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ments cannot be altered by the computer program itself. There- 
fore, every time that you RUN the program you will get the same 
DATA. The DATA lines can be anywhere in the program, the 
computer looks for them when needed. 


Try this: 


14 CIM dasso ro 

24 FOR I=] TO ? 

30 REAG dase Io 

44 HEATI 

SA FRIWT' The days of the week are" 
66 FOR T=1 To ? 


TE FRIWHT GAY "slat = "Goa I 3 
mel MES TI 
84 DATA Sundas. Monday. Tugscdagw. Wednesday » 


Thursdag. Friday. saturdays 


RUN the program. 


In line 30 the READ statement is rather like INPUT except that 
the computer looks for the item in DATA lines, starting with the 
first item it finds (if it’s not told to start with a different one) and 
then taking them one by one in order. Each data item is separated 
by a comma (,), but there is no comma at the end of a DATA line 
(or else the computer will think that there is an extra item —a blank 
Space — at the end of the line. You can try adding a comma after 
Sunday in line 15 below to test this). 


Now change these lines: 
15 DATASunday 
25  DATAMonday, Tuesday 
35 DATAWednesday 
45 DATAThursday, Friday, Saturday 


90 [RETURN, 


LIST the program to check that it has altered and then RUN it. 
You'll see that there is no difference. The computer keeps a check 
on the DATA that has been read and looks for the next item. This 
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works even if there are several READ statements in different parts 
of the program. 


You will need to be careful not to run out of DATA or the 
program will crash. See what happens if you try to print out a 
fortnight. Change these lines: 


10 DIM day$(14) 
20 FOR I=1 TO 14 
60 FOR I=1 TO 14. 


When the program runs out of DATA to read you will get the 
error message “out of data”. Now add these lines: 


31 IF day$ (1)="endofdata” THEN RESTORE:I=I-1 
46 DATAendofdata 


Now we have added an extra DATA item which the program 
can detect. When the program comes to this item it RESTOREs 
the DATA pointer back to the first DATA item. It is reduced by 1 
so that “endofdata” is replaced in the array by the next proper 
DATA item. 


DATA lines can contain either numbers or strings, or even a 
mixture of the two. They must be READ correctly. 


Try this: 


LQ GTM word eo 4d pambeeren Fo 

ee FOR T=1 To +4 

“9 READ wore d8o Io. tumbere To 

46 PRIHTs Lauer d Bo To, number’ To 
SM HEMT 

56 DATAAPP le. 2S. bog. Le 

fa CATAcat. PS. dos. Se 


RUN this and check that it works. Then change line 30 to read: 
38 READ numbers Toe worecdse I 3 


1 How To Proceed 


In this chapter we are going to build up a larger program than we 
have up to now. We will enter it a section at a time and check that 
each is working correctly as we go along. 


To do this we will build the program from blocks, which in BBC 
BASIC are called PROCEDURES. 


Note that some program statements are so long that they 
spill over onto the next line. Don’t press 


RETURN | until you come to the next line number. 





The program that we are going to enter will accept a list of 
names, ages and heights and sort these lists into alphabetical, age 
and height order. 


First of all, key this in: 


REM FAPROGRAM TO SORT LISTS#ESF 

OM nameSC S69, age Soo hei ghte 264 
rire =e 

PRIHT  S"“Entber name Ofamilys name onl 


WO is four 
© @ & 


P13 


‘J 4 "! 
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-—-———_——————_—_——_-—_-_-———— 
Order of Height 
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S48 number=rumber+ 1 

S10 LF rutmbers2e@ THEM PRIHT "LIST FULL" 
GOTO 37H 

2270 FPRIAT "HAME "“Gnumbersi" Center ea ta 
Quito" 

25360 ITHRFUT name So number os Te name Bo number 


Qe OR namese number oe" xe" THEM 3 re 
S46 INFUT"Ase gears oo "Sage! rumber 3 

“4 ITHPUT"Hedakhite cme 2 "hei akhtbe number 3 
a6 GOT SBE 

SPE nnber=rmbern 1 

S10 PRIATS "MAME G TRB 2S oO" AGE" 3 TARY a6 o"H 
f= I GHT tet 

S49 PORTH] TO number 

S38 FRIHTTARS Sornaneie Joi TABS SS gaged Toa T 
ABS Sh oheiahte Io 

ade MET I 












HINT HINT .... Did you notice that in line 310 there 
are two statements on the same line? You can do this 
here if they are separated by a colon (:). This has been 
done because we only want to GOTO 370 if number 
>20. This is called a multi-statement line. You can also 
do it to save space in long programs. 


So far the program only lets you enter the names, ages and 
heights and then prints out the list. 


Now we will turn these two routines into PROCEDURES. Type 
in lines 60, 100, 110, 280, 380, 790, 850 and 860 so that the 
program is as shown below: 


16 REM #*FPROGRAM TO SORT LISTS** 

20 DIM nameSli 20%, age 2a. height< 2a > 
3H rwuiinber =e 

68 FPROCenter 

106 PROCErint 
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11@ EHD 

230 DEF PROCenter 

230 FPRIWT’ "Enter name (familys name onl 
‘J _" 

304 tuimber=numbert 1 

S10 IF numbero2ce THEM PRINT "LIST FUL" 
(BATA 3Pe 

326 PRINT’ "HAME "Grnumbers " Center HA tos 
Quit a" 

S38 INPUT name8o number oe IF namo number 
ye "BE" OR name SC number ="s" THEM 27a 

S40 IHWPUT"ASe¢ gears oo". aed rember 3 

S54 IMFPUT"Heishtt coms "hei shits number 3 

3680 GOTOseKe 

S76 nurker=rirbere— 1 

388 EMOPROC 

738 CEF FROCPrint 

Si8@ FRIWT’ "NAME" 3 TABS 25 3" AGE" i TABS 38 0"H 
f- I HT ye 

See FOR IAL TO rms: 

S30 FRIHTTABS 3 onameso I oi TABS SS caged Too5T 
ABS 38 thei shite I 3 

Sd HEAT I 

S50 FPRIHT 

S50 ENMDPROC 


The line numbers may seem to be all over the place but they will 
begin to make sense later. 


Now we can begin to see how PROCEDURES are used. The 
main program is now in lines 60 and 100. In line 60, the PROCE- 
DURE called PROCenter is called. On coming to this line, the 
computer searches through the program for a PROCEDURE of 
this name. PROCenter 1s defined in lines 280 to 380. It starts with 
the statement DEF PROCenter and ends with ENDPROC. Simi- 
Jarly in line 100, PROCprint 1s called, and this 1s defined in lines 
790 to 860. 


‘When the computer reaches an ENDPROC statement it returns 
to the program line where it was when the PROCEDURE was 
called. Note that END must be used at the end of the main 
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HINT HINT .... We now have a program that is too 
long to fit on the screen all at once. The computer LISTs 
so fast that there is no hope of reading it as it flashes past. 
Try typing LIST, 380 . All the lines up to 
380 will be LISTed. Now try LIST 380, [RETURN 
and all the lines from 380 on will appear. You can also 
try LIST 100, 400 . This is fine if you 
know where you want to look. With a long program it 
could still be tedious looking for the lines that you want. 
Press and N together, and then type 
LIST . The computer will now list the first 
screenful of the program. To see the next screenful, 
press , and so on. It’s normal for both the 
SHIFTLOCK and CAPS LOCK lights to be lit when 
doing this. 


program (unless it goes around a loop), otherwise the computer 
will carry on through the program and try to perform the first 
procedure again. 


Now we’I] add the first sort routine. Add the lines 400 to 490 and 
730 to 770 so that the program is as follows: 


184 FEM #£FROGRAM TO SORT LISTSA#S# 
209 CIM nameS 260, 3980 SED hei ahte 2u 5 
38 riumber=) 
ba PROCenter 
Te PROC names. 
1186 EMD 
Se CEP PR Ce titer: 
SS PRIA’ C"VEnter name Cfamiles name o 
rls 3" 
SE numbers rmber + 1 
S18 IF number oe2e THEM PRINT "LIST FUL 
L': GOTO Are 
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Se FRIHT “AME "Ginumberi’ Cenber Kx 
to FJuit 3" 

338 IHPUT names rimber 9: IF name Be rams 
eros! ste" OR nameSe number ge" ec" THEM SP 
S46 IMFPUT"ASe years 2" eae" number 3 

S56 THPUT"Heiohtcicme > "shei Shite number: 


GOTOsS68 

NU mbes = Mer 1 

ENMDRPROC 

COEF PROCnames 

FOR I=number TO @ STEF-1 

FOR J=2 TO I 

IF names" Jo>rname $C I-19 THEM 48a 
PROCS u03F 

d5a HEXT 

156 HEXTI 

47H Llesends="alehabetical order” 
456 FROCP ri nt 

4534 EMDFPROC 

736 DEF FROCswar 

T46 HS=name Sl Jo: wAFage Jo: hHeheishte: J 


Pee TG 7) 
1M WM @ Ta & 


15) 


& 


pe Sa OM CO MS YS 
ts ty 
Cur 


a ae 


itt 


Pai names. J o=namese I) os ages J oea3! 


1>:heishte J o=height: J-1 3 


Ted names. Jn 1 os S: aged J—-] OSHA hei shrke 


dol osed 


$ 


ra ENMODPROC 
= DEF PROCErint 
Sa FPRIAT SS "List Printed ain "Ga legerivd 


S1l@ FRIWT’ "HAME' G TABS 23 9" AGE" i TABS Se 2 


"HEIGHT" 


som FORI=L1 TO number: 
230 PRINTTRES Soname $0 125 TAB SS vaget Io 


THES SE whe isht: Io 


S40 HEXTI 
a5Q PRINT 
S60 ENDPROC 
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PROCprint is now called within PROCnames. So is PROCswap. 
So procedures can be nested like FOR. . .NEXT and REPEAT 

. .-UNTIL loops. The main advantage of this is the saving of 
program lines. The same procedure can be called from several 
other procedures and so only has to be keyed in once. 


PROCswap may seem rather complicated at first glance, but in 
fact is no different from the simple sort routine in the last chapter. 
Here, all three lists (name$, age and height) have to be swapped at 
the same time, or else things would get very chaotic. 


Now add these extra lines: 


Mm 


PROS aces. 
PROC bie i abit. 
DEF FROCaae: 
FOR I=rnumbe 
Prife wis TO 
IF asec wioeas 
PRS eae 
MEE T i 

ME TI 
lLesend$="arder ot 
FROUISE ed nit 

EMDRPROCG 

DEF PROChei shits 
FOR I=rnumber TO 2 STEP -] 

FOR .lm2 TO J 

IF heiahte Jatheiaht. I-19 THEN 87a 
PRI Sil2.F 

HET 

HET I 

lesgend$="arder af heiaht" 

PROC ri nt 

EMDPRIOC 


AS a A 


r To 2 STEF -1 
r 
A 


Wm me! 


J-) 9 THEM See 


= WO UR ONE DM Lk hp 8 om 
my 


my Ti 


Ti 


a‘ne" 


™=. — 
ee Ty eT 


ee 
“4 #3 


mI ty MT) 


“SAHA AmH mh Hw Ua oe 


Now we can sort the list in three different ways, all using the 
same PROCswap. 
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Now, to finish the program off, we can add a menu (as in a 
restaurant) so that the user can choose what the program will do 
next. Add lines 40 to 270 so that the program 1s as follows: 
(This is a complete listing so that you can check everything.) 


10 REM ##FROGRAM TO SORT LISTS#EF 
28 DIM nameSt 280. aget 26> heiahte 285 
36 number=6 


446 REPEAT 

26 FROCmernu 

OG IF select=1 THEN PROCernter 

7O IF select=2 THEN PROCnames 

8H IF select=3 THEW PROCages 

30 IF select=4 THEM PROChei shits 

186 IF select=5 THEM PRIHT’ “*"End of 


e 
Frogram. "': EMD 
116 PRINT" Frees any key to return to 

the menu." 
128 continueS=GETS 
130 UNTIL FALSE 
140 REMERREKRREKERERRAREAREEARREERAREREE ESF 
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1S DEF PROCme ru, 
166 (LS 


17a 
nection 
Lee 
ie 
4 
ele 


one, oe eee 
on ge 


eee 


Pope] 5 
abel a 
arg 
PA 
oa 
nly 3" 
me OSs 
a1 
"GOT 
2k 
tc ‘Jud 
eel 
ergs es 
eh) 


350 


wT 
ic.8 


MR ma a 


BRO to 
ee he ee mp Ty 


Gi 


PRINTTABS Si! / "Select required fu 
PRINT’ {19 ADO MAMES TO LIST" 
PRIMT! "C29 SORT ALPHABETICALLY" 
PRINT! "c2> SORT BY AGE" 


ie 


PRIHT? Uod> SORT BY HE LOHT" 

PRINT "CS o> EoD PROGRAP 

PRIHT  CEntber number reduired" 

se lect=VALC GETS » 

IF select<1 OR selecteS THEM 2308 

EMDRROC 

FETT RE RRR ER ACE ACR AER ER RE ER EER EEE 

DEF PROCenter 

PRIHT SC "Enter name Ofaniles name oo 


nombre =r rib + 1 

IF numberseea@ THEM FRIHT "LIST FUL 
Cl Bre 

PRIHT "MAME "“Gnumberi'" Center Ha 

toa" 

IHMPUT name 8o number 2: IF namese numb 


me GIR name number = "ec" THEM 37 


IHMPUT"Aset years) "LJaset number 2 
IHFUT"Height< comseo "hei ahte number: 


BOTOSa8 

NM = Tbe em 1 

EMDRPRICIC 
PEMAAKEKKEEEKEELAEEERRELRREELEREES 
DEF FPROCnames 

FOR T=number TO 2 STEP-1 


4FOR J=2 TO I 


IF namo Jo>name bo I-15 THEM 456 


A FROCswaP 
A HEAT 
4 HEAT I 


lesend$="a1lPhabetical order 
FROG edi nt 
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EHOR RO 

PREM RREKKERAKERERLREERREEEREREERREE 
DEF PROC ase = 

FOR IJ=number TO 2 STEFF ~1 

Fo! Jee TO I 

IF aged Jo-aaec J-159 THEM Séa 

PROC Sua F 

HEAT J 

HET I 

leséends="order of ace 
PRICE re init 

EMDR RCH 
REMEEEEAEERERKERLAERERELESEEEREREE 
DEF FPROCKe@i shits 

FOR Tenumber TO 2 STEF ~] 

Foe Jes TO I 

IF height Jotbheishte J-1> THEM &Pe 
FPO Sale 

HEAT 

ia HET I 

6590 legend$=" order of height" 

THO FROCPri nt 

716 EMDRPROC 

T2G REMAKES EAEEEERERERLELERKEREEES 
Fae DEF FROCSwa.F 

Tae S5=-name So 10: SASsaged 20: Hebel akhte 


er. 
ot 3 
ye 


SS Gy Ma ma 


i i 


rim ACH CAA CECH ON 


“MU BGM GOW U eb oe | 


iy 


Oi i Ny 


re 2 
ty 


ff @) © Gata GM Ce Ea Ga we 


sy) 
3) 


A] 
i* 


TSB names Jsenamebo I] 5: aged UJ oe3g ced l- 
Locheishte J=heiahte J- 

Tee nameSo JI-] seks ag 
wa 1 3=H 

rr’ EMDRROC 

TSO REMAREAEECEHCE ARRAS EERE S ERS EERE LEE 

736 DEF PROCeErint 

SHO PRIHT’ “S"List Printed in "ilegend 
i 

S16 PRINT’ "HAME' G TABS 2h OU AGE"' i TABS Seo 
"HEIGHT" * 

S20 FORIA1 TO tuimber 


1 > 
eo Je] SHA hel akite 
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S38 PRIMTTABS 5 onameS¢ 193 TAR 25 yagec 13 
TABS 3@ thei hte I> 

S40 HEXTI 

S59 PRINT 

S60 EMDPROC 


This program can be adapted to many uses in your class, or club 
or team. The lists don’t have to be of ages and heights, but can be of 
scores, or running times (you may want to sort these into reverse 
order). The number of people that the list can hold can be 
increased by simply changing the numbers in the DIM statements 
in line 20 and in line 310. It doesn’t matter if you enter fewer 
names than the number allowed for in the DIM statement, but if 
the list is too big you may run out of memory space. 


The great advantage of PROCEDURES is that they allow 
you to break up your program into parts, each of which can 
be worked on, improved and checked without affecting the 
rest of the program. Professional programmers consider 
this to be ‘fa good thing” and the whole idea is known as 
Structured Programming. 


The point is that although you are writing your program for 
the computer to understand, it’s very important that you 
can understand it too. And anyone else that might need to 
read it as well. A long complicated program, written all in 
one piece, with lots of GOTOs flying off in all directions 1s 
almost impossible for a mere human to understand when it 
works, let alone debug if it goes wrong. 


PROCEDURES can be a real help in writing good pro- 
grams. They break the program up into easily-managed 
parts and they are easy to recognise when called because 
they can have meaningful names. 


PROCEDURES are only likely to be found in programs written 
specially for the BBC computer and the Electron. Other versions 
of BASIC use a similar feature (which will also work on your 
machine) called SUBROUTINES. Instead of calling a PROCE- 
DURE by a name that is easy to recognise, a SUBROUTINE has 
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to be called by its line number (which can get rather confusing in a 
long program). 


Try this: 


lo Fur [=] TO 2 

2H GOSUB FE 

36 FRIWT" line 36 "3 
4 GOSIE ae 

oe MET I 

eH EMD 

ra PRIHTIG I. "line Fe”; 
Sk RETURIH 

S94 FRIHT’ Line Se" 

law RETRY 


GOSUB causes the program to jump to the line shown. 
RETURN will return the program to the point immediately after 
the GOSUB. Again, don’t forget END, or else the program will 
run on as far as line 70 and print: 


RETURN WITHOUT GOSUB at line 70. 


8 Keeping Tabs On Things 


In this chapter we’ll look at how text can be moved around the 
screen. 


First we’ll look at TAB. We already used TAB in the last 
chapter. It wasn’t explained then but you probably picked up how 
it works. TAB (short for TABulate) tells the computer how many 
spaces from the left-hand side of the screen it has to start PRINT- 
ing. 

Try this: 

10 X$="HERE" 

20 PRINTX$ 

30 PRINTTAB(10)X$ 

40 PRINTTAB(20)X$;TAB(30)X$ 


In line 20, HERE is printed at the left-hand side of the screen. In 
line 30 it is printed ten spaces from the left. In line 40 it is printed 
20 spaces from the left and then again 30 spaces from the left. 


Now try this: 
10 X$="HERE” 
20 FOR I=1 TO 16 
30 PRINT TAB(I)X$;TAB(37-I)X$ 
40 NEXT I 
So you can see that TAB can be calculated. 
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So far we have only used TAB to position the printing in from 
the left-hand side of the screen, but it can also be used to position 
the print anywhere on the screen. 


Try this: 
10 CLS 
20 PRINTTAB(25,10)"*" 


Here we have used TAB (COLUMN, LINE). COLUMN is the 
number of columns in from the left-hand side of the screen and 
LINE is the number of lines down from the top. 


line 


‘ 


* 
columns ———-—> 





Now try this: 


CLS 

Fur [=1 TO 44 
PRIMNTTABS RHO 489, RAD! 24 soa I 
MET 


A ia 
™ @ Gi © 


Another useful feature for positioning print is LEN. 


Try this: 


1G x$="CHRISTOPHER” 
20 Y$="STEFHEN" 

3@ PRINTAS;" = "GLENCH&2" LETTERS" 
46 PRINTYS:" = "SLENCYS#3;" LETTERS" 
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"> Fellhd 
CHRISTOPHER = 11 LETTERS 
STEPHEN = * LETTERS 


LEN(string) counts the number of characters in the string. 


Try this: 


FOR [T=] To & 
READ ss 

PR IMT TAR S6-LEHS Mo OKs 

HEAT I 
DATACOORWAY. AT. WIDOW, CUP. CHAIR, 


qe ot he 


i 
G® to Ga Fe Gs 


BOk 
RUN this, notice that all the strings now end at the same column. 


7RUM 
COOMA 
AT 
WIHDOL, 
LIF 
THAT Fe 
BOM. 


Now try altering line 30 to read: 


SEIPRIHT TABS 2El-LEMC 6 oe" RS 


>Re 
COOORWAY & DOORWA'T 
AT #€ AT 
WIKMOOMW #& WIM GC 
UF & CUP 
CHAIR # CHAIR 
BOuK * BOCK 


Try adding some words of your own (change the loop parameter 
in line 20). 
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Now try this: 


13 
2 
38 
42 
3 
Bd 
fa, 
a) 
38 
166 
118 
12 
136 
ide 
158 
1 et 
ira 
ish 
13 
eBe 
21g 
228 
238 
248 


oe 


HINT HINT .... Don’t forget to use the COPY key to 
save a lot of effort keying in the next program. 


CLs 
REPEAT 
READ AS 
IF AS = "EHD-OF-DATAR" 
PROC die ectbian 
PROCE ri nt 

WHTIL FALSE 

DEF FROCdirection 
direction = RAMOS a 

IF direction 
IF direction 
IF direction 
IF direction 
IF direction 
IF direction 
IF direction 
IF direction 
EMDPROC 

DEF PROCPrint 
MP asiltion=RHOe deo: 


fen turn oh 


THEM EME 


weedy se 
weds vet 
wise bip: ‘yiss | 
Wand ted 
eed v= 
Ham]: fs] 
Maw: =~] 
wey] 


“Position=-RHD" 28 o 


PRIHTTABS APosition. frositionsolLePTS. AS, 1 2 


FOR I=2 TO LEW. AS? 


APesibion=AbPositiants : 


‘SPs dtd (Pos dba s 


PRIMTTARS #eosithion WPssition snl bS AS. I. 1 


NEXTI 
EMDFROC 


DATADOORMAY. AT WMO 


CATAEMO-OF-DATA 


CLIP CHAIR. BO 
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Did you notice two new commands here? They are LEFT$ in 
line 210 and MID$ in line 240. Here are some programs to show 
how these work. 


As="ROUMOABOUT " 

FOR I=] TO 1 
PFRIHTs 1. LEFTS¢ AS, To 
MEST I 


fs fat fp be 
my Mr mi Co 


~ 


Pld 

Fe 

Fc 

Ret 

Fecilitd 
RCI 
ROUHOR 
ROUMDARE 
POWIMOREO 
ROWMOABOL 
ROUHDRBOUT 


7, LA fe ee Pe 


~., 4 


wee 8 EG 
a? 


LEFT$ (A$,I) 


number of letters 
from left to be 
shown 





When I=1 then LEFT$(A$,I) will print one letter, starting at 
the left hand side of A$. When I=2 then two letters are shown and 


SO ON. 


Now change line 30 to read: 
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SA PRIHTS TMI D8 AR. Ts 1S 


FL 


Mm cl BD oo fa re 
rl 


m= 86 Ga 3] F 
(— 2D 


(a T 


number of letters to be shown 


MID$ Se ) 


position in string 


of first letter to be shown 





SQ PRINTi TL. MIOSc AS. 1.3% 


RUM 

1 RoW 
Pr OLIN 
3 itd 
ef HDA 
md DAE 
é ABO 
r Boil 
S IT 
9 LIT 
18 T 


There is a third command used in printing parts of strings. 
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38 PRINTS 1. RIGHTS* Ax, I 2 


Pe Lik 

1 T 
én LIT 
Ui T 
ed. ELT 

Fe AB CLIT 

FS DRABOUT 

fa HOARBOUT 

is WMOR BOLT 

“2 CIM DAECUT 
1k ROUM OREM T 


RIGHT$ (A$,D 


number of letters to be shown 


from right hand side of string 





Now try using LEN to allow words of any length to be INPUT. 


16 THEUT' Ineout aor so AS 
2 FOR I=1 TO LEW AS o 
SH PRIHTS Lo RIGHT Ag. To 
dh HEeATI 

FL 

TrnFutk a word TABRACADHERA 

M4 

Pry 

ERA 

AERA 

(CoP Bet Pet 

ADAERA 

CADABREA 

ACADRBRA 

RACADABRR 

BRALCADCAERA 

ABRACADABRA 


Hogs Ge Bae 


- hii -) Oy 


ps 
ee fi 
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We can extend the program to make a pattern. 


Le DMPO" DriPuct a. utc". Fis 
el TF LEM AS oeee THEM PRIHT" TOO LOWG": caTO 14 
ak ROR T=2 TO LEM. Ags 3 
46 FRTIMT LEP TS! Aw. I oi TABC SS-T OR IGHTS As, I 
el WERT I 
For example: 


InPut a word? LLAMFALRPWLLGWY HY LL GOGERYCOH 
WW RHORGBULLLLAMTISTLIOGOGOGOCH 


TOO LOHG 


3RUT 

InPut 2 word?TFORMALCEHRYCE 

F E: 
Fc CE 
FOF ‘DE 
FORM HY CE 
FORMA EHY'DE 
FORMAL DEH CE 
FORMALCG LOE HE 
FORMALDE ALDEHYDE 
FOURMALOCEH MAL CEH YE 
FORMALDEH' RMALDEHTDE 
FORMALDEH TC NRMALCEH OE 
FORMALDEHYDE FORMALDEHYDE 


Can you find any more ways to make patterns from words? 
Here is another way to use TAB: 


Je CL 

2k TIMES 

AE REPERT 

Le sence THTe TIME -1ae@ 3 

SM TF secraS THEM secesec-Aa: COTO Sa 
ei mine=lITs TIME Bee 3 

7a FRIWTTABC LS. Somini" « “Geecg" " 
mil UTIL FALSE 
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Your computer has a built-in clock. It doesn’t count in hours, 
minutes and seconds, but in hundredths of a second. The clock can 
be zeroed, as in line 20 but the time has to be calculated from 
hundredths of a second, and this is done in lines 40, 50 and 60. In 
line 70, the time is repeatedly printed in the same place so that the 
display appears to change on the screen. 


Here is another clock program that you will find useful with 
games, experiments and sports events. 


Las GTM eer TS aomin LE: 
SW ILS ewer: € ] ag Gi 
15 PR IMT TRE 11.23" P lide ewer Tiere 
OA PRTRMTTRBC Ee. PoP eess are kew ho aha 
mh om lok | 
Be shar hbo Ge Te 
Bo PRIANTTARC &.2o"Press ana kes ho tim 
e evenik! 
re TIihiE= 
Se REPER T 
a6 seceTIME. 160 
1aG TF secbeo. 3 THEM secesecebe: GOTO 


_ 


{ia Mine lHT¢ TIME-aeee 2 
{28 PRIHTTABG 13. 3S omaing © "THT seca" 


1 PROIMT TAB GL. 7 GORE RR AEE OR EE 
LEEREEEAAAE ASE 

44 FRO nebhank 

“oIF fFlage1 THEM PROC ewe st 

MF Lage 

UWTIL FALSE 

PEF PROC netank 

inetant=THRE Ye: Bo 

IF inebant?-6 THEM f laced 


“sds 


A 4 


i - 


tA 
ty 


7 
= 
+ 
3 


SO OE oh oes 


218 #P HLS 
sek FMD ROE 


36 DEF PRCCewe nt 
ae mteqnihse wie het 1 
Sa ITF eventeiS THEM PRIMTTHE! S. ea ocl 
ef “ELILL" EHD 


ots ow one ten ews 400, 0.78 "ey ceten ,rts are, ors 
S6R S800 eyveanh oe ahac 
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ora mink event /=min 
250 FRIMTTABS doeventbe? "Event Ho. "ie 
enti TABieeaimirnt ewent ai" "4 


298 ENMDPROC 


There are several new things here which need explaining. The 
main program loop is from lines 80 to 170. Line 50 starts the clock 
at the required moment. Each time around the loop, PROCinstant 
is called in line 140. 


PROCinstant examines the keyboard to see if any key is being 
pressed (line 190). Ifa keyis being pressed then the variable flag is 
set to 1. This is the same as raising a flag, so that when the program 
leaves PROCinstant, it can still tell whether a key was pressed. In 
line 210, *FX15 clears the keyboard buffer 1n case extra characters 
have been entered. 


Back in the main loop at line 150, if flag=1 then PROCevent is 
called. PROCevent prints the event number, and the time (near 
enough) at which the key was pressed. In line 160, flag is set to 0, 
ready to be raised again when necessary. 


This program allows you to store up to fifteen different event 
times. More event times could be stored, but more attention would 
have to be paid to the display because of scrolling. 


Finally in this chapter we’ll try a game — “‘Beeping Ball’. 





(Notice that integer variables have been used to help speed it 
up.) 


KEEPING TABS ON THINGS 


Le 
208 
1 ') 
tel 


CE kant: : 


Poth 

Ak 

1 ee 

14 

ben 

13a 
at “ 


140 
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REM #44 BEEPINHG BALI FRx 
REM & BY STEFHEH MILAM 
IHMFUT"DIFFICULTY 1-9 "Jdifficultys 
MODE? Adi rect anasl : yirect Lonel | a 
a oy bate 
EFALL 5 
REPEAT 
Fok IJ=1 TO 
HET 
in 4 | 
WAMTIL FALSE 
RE IMTCEECRACGEHEEEHRECRE EEE AEE EERE ER ERE ES 
REF PROUT wows 
batted dese TE dae Go 
Il babi ese" 2" AME 


=e 


Lied af ficult PRO ¢ fe 


batie THEN batice 


IF batdirS="s" AMO bakee23 THEN batts 


hia test | 


1st 
Let 
1 re 
Lisk) 
138 
cht 
elk 
228 
2g 
ah Cy 
bi) a) 


FPL Ss 

EMD RC 

DEF PROC Eat 
PrIMTTAR baba. es aa 7 oo" 

EMDR RO: 

Pe TSE CE CERES RCR RCE SEEGER Op oR ph ee de de 
DEF FROG 1 1 
time= 7 DTPIE + EPEAT : WIT TL 
PRINT TAGS eco 
eee ud breech dire ts 


IF fac l OR BASS THE 


TIME st ame tS 


Tai Pect Lone 
el ir mek dices 


i “ft of” seeve 


directh ions 


ayo 3 
_ et 


Slioa tats oo THEM 


DUT 


fo AMD Raber TTD 


a er eoina 
Wddreerk dares seme i reir Lari’ 


IF ‘NL Re 


[F Yascd THEM ose 
PRINT TABS Manis aa io" 
EMDRROL 

#R aL 1 Se 

WOLF: EMD 
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Quite a few new ideas here. 


The main program loop is between lines 50 and 100, calling just 
three PROCEDURES. 


Line 30 invites the player to select how difficult the game 1s to 
be. This is controlled in line 80, by altering the number of times 
that PROCbat 1s called relative to PROCmove and PROCbDall. 


Line 50 alters the speed of the keyboard auto-repeat so that 
there is no delay, and this is reset in line 310. Incidentally, if 
you from this program before it gets to line 310, then 
you will find it impossible to type properly because the computer 
will auto-repeat every letter no matter how fast you tap the keys. 
You will need to to reset the auto-repeat delay 
(remembering to type OLD if you want to keep the program). 


PROCmove checks to see if keys "Z” or ”X” have been pressed to 
move the “‘bat”’ to the left or the right. If so, it alters the value of 
bat% accordingly. 


PROCbat prints the ‘“‘bat’’ at TAB (bat%). Note that the “‘bat”’ 
has a space at each end within the string. This is so that when it 
moves, it erases the edge of the old bat. 


PROCball prints the ‘“‘ball’’. Line 220 is a short delay to slow the 
ball down. Line 230 prints a space at the old ball position to erase 
the previous ball. Line 240 calculates the new ball position. Lines 
250 and 260 check that the ball is still within the court and if not, 
alter the direction. VDU7 makes a beep. In line 270, if the ball gets 
past the bat, then the program is ended (after resetting the auto- 
repeat delay). 


There are lots of ways that this program can be extended and 
improved. Try printing instructions on the screen so that new 
players will know which buttons to press. And what about some 
kind of scoring, perhaps how many times the ball hits the bat? 
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WORDSQUARE 2 


30 words which have been introduced in Chapters 5 to 8 
are packed into this wordsquare. 


LArs 
DA LY vd 


ACUMAC/A/ VFS MOO 


R 
T 
I 
M 
E 
N 
N 
E 
O 
P 
L 
A 
M 
F 
I 
C 


nmNAWOOrUMHAumMazreMOO 
COA UOUMPrPeBNOAANZZDONOAZAUNZ 
AHAMAAAwWSHyHMormzAcd 
MOrPrrA PrCIsrrvsesys 
tr 

OnAaAHH*Kr/ZW/OUMEZON 
ArTTance 

IrprnmimIAAnnZyAn teHAvwZ 
DnAMumrsas res 2cl 


NADADUAMANHCO 


4 >= 


ARRAY LEN RESTORE 
CRASH LOOP RETURN 
DATA MID RIGHT 
DIM NESTEDLOOPS SHIFT 
ENDPROC NEXT STEP 


ESCAPE PROCEDURE SUBROUTINE 
FOR RANDOM TAB 

GET READ TIME 

GOSUB REMARK TO 

LEFT REPEAT UNTIL 





9 Design For Good 
Programming 


By now we’ve met most of the programming features that will be 
covered in this book. The rest of the chapters are concerned with 
screen display, colour, sound and high resolution graphics — all 
things to help us to make the OUTPUT from our programs more 
attractive. But now that we have a good idea what programming ts 
about, we should start to think about the qualities that go into a 
good program. 


Let’s think about the qualities that a program should have. Here 
is a list of seven (you may be able to think of more). 


A program should be: 
Accurate 
Reliable 


Robust (it shouldn’t crash because of bugs or unexpected 
INPUT) 


Efficient (it shouldn’t be too slow, or use up too much 
memory space) 


User-friendly (it should be easy for the user to use, have 
adequate instructions etc) 


Easy to maintain (you'll want to change the program 
from time to time, so this should be easy to do) 


Easy to read (programs often need to be read by humans 
as well as computers, so use REMs, procedures and 
meaningful variable names) 
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Easy To 
atom 





RG oy recurate oO 


Once you get an idea for a program there 1s a great temptation to 
sit down at the keyboard and start to key in straight away. Profes- 
sional programmers see programming in two different stages: 
program design and program coding (keying in). In the program 
design stage you should carefully consider what it is that you want 
the program to do, and how it should be constructed. No builder 
(in his right mind) would design a house by piling bricks on top of 
each other! 


Starting with an overall view of the program is known as a top 
down approach. Starting with the main part of the program (which 
will control the rest), you can decide what PROCEDURES you 
will need. So the structure will look something like this (this 1s 
LISTSORT from Chapter 7): 


PROGRAM 
CONTROL 


PROC PROC PROC PROC PROC 
menu enter names ages heights 
PROC | | PROC PROC PROC PROC PROC 
swap print swap print swap print 
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The main part of the program calls up the procedures which 
perform the various tasks which need to be done. These proce- 
dures themselves may call up other procedures which perform 
other tasks. Once the structure is decided on, it is then easier to 
write each procedure to do the task required of it. 


The other way of designing a program is known as the bottom up 
approach. In this method the programmer starts by writing each 
procedure, and then in the end writes a control section to join them 
all together. The trouble is that not having an overall plan, none of 
the procedures are likely to fit the others very well, and the control 
section may be difficult to write and not work very well. It would be 
a bit like this: 


PROGRAM CONTROL 


PROC PROC PROC 
PROC PROC 


Here all the procedures are likely to be rather higgledy piggledy 
and difficult to fit together. So although bottom up is the approach 
that many people start by using, it isn’t the best. 


Although top down is the “right”? approach to programming, 
many good programmers use a method which is somewhere bet- 
ween top down and bottom up. You should have an overall plan for 
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the program before you start coding, but as soon as you start to 
work on the procedures you will probably think of ways to improve 
the program as a whole. Don’t be afraid to go back and change the 
overall plan. The detailed programming should only be done with 
the overall plan in mind, but there 1s nothing to say that the overall 
plan can’t be improved. 


A lot of the fun in writing your own computer programs 1s being 
able to improve them and get that “‘little bit extra’ out of them. 
Structured programming makes this so much easier. 


10 A La Mode 


So far in this book nothing has been said about the different 
MODEs that are available on the BBC microcomputer (except for 
a brief mention in line 20 of ‘‘Beeping Ball” in the last chapter). 
There are eight MODEs available on the BBC Model B. The 
Model A, which has less memory space, has four of these. The 
MODESs control the number of characters that are displayed on 
each line across the screen, how many colours can be shown at one 
time and how fine is the detail of the graphics. There is a choice 
because the more characters, colour and graphics detail shown on 
the screen, the more memory ts needed to store and display these. 
If a lot of memory is used for the display, then less is left for the 
program and data. 


characters lines high memory 
across down’ colours __ resolution Space 
screen screen graphics used 


(model A and B) 
MODE 7 
MODE 6 
MODE 5 
MODE 4 

(model B only) 
MODE 3 
MODE 2 
MODE 1 
MODE 0 





* In fact, the choice of colours is not as good as it looks. There are 
really only eight colours, the other eight are the same colours but 
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.flashing. Of the eight steady colours, one of these is black and the 
other white. The colours are: 


steady flashing 
0 black 8 
1 red 9 
2 green 10 
3 yellow 11 
4 blue 12 
5 magenta 13 
6 cyan 14 
7 white 15 


The letter K, when referring to computers, is a measure of the 
memory capacity that a computer has. The size of the memory is 
measured in bytes, each byte can store one character. One byte 
isn’t very much and we normally talk in kilobytes. A kilobyte is 
acutally 27°, or 1024 bytes. We can easily think of it as about one 
thousand bytes. The Model A BBC computer has 16K bytes of 
Random Access Memory (RAM) that can be used to store pro- 
gram, data and screen information. The BBC Model B has 32 K of 
RAM. As you can see from the list, MODEs 0 to 3 need more 
memory space for the screen display than there 1s in the Model A, 
and so are not available in that Model. 


MODE 7 uses up far less memory than any of the other modes, 
and although we can use colour, there are no user-definable graph- 
ics (coming later in this chapter) or high resolution graphics (com- 
ing in Chapter 12) available in this mode. However, not all pro- 
grams need these features and MODE 7 is a very useful mode. 


Try this: 


ig FOR I=? TO 4 STEF~1 
24 MODE 1 

30 PRINTTABCS.52"This is mode "G1 
40 FOR J=48 TO 125 

SQ PRINT CHRS¢ 9; 

68 WENT J 

70 TIME=@:REFEAT UNTIL TIME=Sa0 
SG WEXT I 
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If you have a Model B, then line 10 should read: 
19 FOR I=" TO @ STEP-1 


We can select a different mode simply by keying in a direct 
command, eg: 


MODE 5 


or else it can be incorporated into a program statement line (but 
not during a PROCEDURE). If the mode is changed during a 
program though, this will always clear the screen and may do funny 
things to the program. If the program and data use a lot of memory 
space, then some of this memory may be taken over by the screen 
display and the previous information lost. Be warned! 


If you have a Model B machine you will see that two of the 
MODEs, 0 and 3, display 80 letters as characters across the screen. 
This is very useful for some purposes, when you want to see a lot of 
information at any one time. But these letters are really too small 
to be seen on an ordinary TV set, even a black and white one. They 
are meant to be seen on a TV monitor which is a special TV set. 
These can’t usually receive pictures from an aerial. They give a 
very clear picture from a computer, but cost a lot more than an 
ordinary TV set. In time, more television set makers will bring out 
combined TV receivers/monitors for use with computers and 
video-cassette and video-disk players 


In the program that we just ran we used a new keyword, CHR$ 
(sometimes pronounced “‘character string” or ‘‘character dollar’). 
In the MODEs other than MODE 7, the ones that can normally be 
displayed on the screen range from CHR$32 (a blank space!) to 
CHR$127 (which stands for DELETE). 


Try this: 
10 CLS 
20 ch =31 
30 FORI=1TO4 
40 FOR J =0 TO 23 
50 ch=ch+ 1 
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60 PRINTTAB(I*7,J);ch;” ”";CHR$(ch) 
70 NEXT J 
80 NEXTI 


RUN this program and it will display the characters and their 
CHR$ numbers. Try the program in MODE 4. 


With the BBC computer it is also possible to draw your own 
characters. You can design up to 32 of them (in fact with a lot of 
effort, you could redefine the entire character set). The characters 
that we can easily define for ourselves are CHR$224 to CHR$255. 


Try this: 
Le MOE 4 


20 YOWES. 224. 255.1289, 129.125. 125, 125 
29, 255 

38 PRIMTTAEM S. 5 CHRee2q 

4a FOR I=1 To 18 

S@ PRINTTARS LO+1 sCHRSE24 ; 


ee HEAT I 
“A Fok le4 To ia 
cr “el FRIMT THE! Les le aCHe Boe 


3 i HET 
mae EMD 
Try this change to “‘Beeping Ball’: 
25 VDU23,224,24,126,126,255,255,126,126,24 
280 PRINTTAB(X%, Y%);CHR$224 
and the result will be a solid ball. 
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This 1s the way that it is done. Every character on the screen is 
made up of 64 dots, 8 rows of 8, like this: 


This is a capital Q 





Some dots will be white and some black to make up the shape of 
the character. Each line of dots is held in the computer’s memory as 
a number, and the number will depend on how the dots are 
distributed along the line. 


64+32 +8 +2 =106 





The dot at the right-hand end of the line has the value 1, the next 
to the left 2, the next 4, the next 8 and so on, until the dot at the 
left-hand end of the line has the value of 128. 


The values of the dots that you want to show up are added 
together. For the ball it was like this: 
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16+8=24 
64+32+16+84+4+2=126 


64+32+16+84+4+2=126 
128+644+32+16+8+44+2+1=255 
128+64+32+16+8+4+2+1=255 
64+32+164+8+4+2=126 
644+32+16+84+4+2=126 
16+8=24 





and the instructions to the computer made up like this: 


line 2nd 


VDU23, 224, 24, 126, 126, 255, 255, 126, 126, 24 


top 3rd a 
instruction , 

j line line a ln 
to define a 


a 


character 





In MODE 5 (also MODE 2 on Model B) there are only 20 
characters shown across the screen. This makes the text difficult to 
read, but the graphics (particularly characters that you define 
yourself) can look very good indeed. These modes also have more 
colours available at any one time than the others, four colours in 
MODE 5 (and MODE 1 on Model B) and 16 colours in MODE 2 
(although half the colours in MODE 2 are flashing, these can be 
combined with user-defined graphics to produce very striking 
effects). 
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Try making up some VDU23 statements for yourself. 


Try these shapes: 





Here is a program. Complete lines 10, 20 and 30 to define the 
above shapes. Then RUN the program to check the results. 


10 VDU 23, 224, ——, ——, ——, ——, ——, ——~, — 
20 VDU 23, 225, —-, —-, —-, ——, ——, ——, —— 
30 VDU 23, 226, —-, —-, —_, ——_, —_, —_, —— 
40 MODE 5 

50 FORI=1TO5 

60 FORJ=1TOS 

70 P.TAB(I, J + 5); CHR$224 

80 P.TAB(I + 8,J + 5); CHR$225 

90 P.TAB(I + 14, J + 5); CHR$226 

100 NEXT J: NEXT I 


(The answers are at the end of the index at the back of the book, 
but don’t cheat; try and work them out yourself.) 


Try this: 


J REM CE OWIAILE  RaROE 

29 MODE4 

SQ REMREE HIDE CURSOR 4ob# 

4@ VOUS 11.8555 el 

Se WOUES. ced et ed Be Sb Le. 4, Oo. 4 
23,225, 8,.8-8,0,8.8, 8.8 


e! Gems “ome 
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Be WOW, See Ge, 14S 


: chiA 
"1L,23,2 2a at, Ge 15. [SG SE, 14 


rel WOUSS, 225,22. 2112,6 le, 1a. 3ee 
4.225, 0, Meh. 6.8.0.8. 12s 
SE VOUS Sse SP Pas. lil ls. S23. 233s 


Leladlsdsdls 3.2.3 
SH WOUSS. ete, LSS, LSA, lee. 1S, 1Se. 1 
Seuet 231,60. 126,125.6,8,8,8,¢ 
Be WOUSS.234,0.1.1, 8,6, 8,860,860, 83,235, 
wth ed, 192,64, 96, 224, 30 

rig WOUSS. 236.8, GBB Bole lL SS. Sar, 
Lee, 216. 132,968,112, ced, bec.le 3 

126 snéeS=CHESSES+CHRSSS4+0HRSSE54+- CHR 
S+CHRSS+CHRSS+CHE SL E+CHR SSS S+ CHR SSSR +CH 
Rb Si 

138 tuo h=CHRSSES+CHR SSS P+ CHRASSS+CHR S$ 
4+ HE BSE+ CHAS 1 O+CHR SSS + CHR BSE 

14@ three S=CHRSSSS+ CHR SS SAF CHR BSS 1 +H 
Fc B= CARBS + CARE] G+ CARB SSS + CARRE Se 

1350 fourS=CHRESSSS+ CHR SS S4+CHR RS SS + CHR 
694+ CHRSE+CHRS1O+CHRSETE+CHR RSS? 

i6g@ C=1 

1° REPEAT 

Le FRIWMTTAEM 0. Leos ore S$, 

126 FPROCDELRYT 

SEE FRIHTTRE! 0. LE 0G tino j 

21g FPROCDELAY 

eel FRIMTTABE OD. 1G threes 

S38 PROCDELAY 

Sah FRIAMTTABC C. 

25 PROMDELR YT 

pak Gist Lf 

STe UNTIL C36 

230 PRIHNTTABS . 2 3 
a6 REPERE RESET CURSOR 4k 
Be WOUESI LL SS 5365 83:8 
je EMG 
DEF FROCDELA 
Fike I=] TO 264: HET 
EDF Peiliic 


Chi 
Mr 
ee a 


Ts 


— 
Lf ft 


Loi Piotr 


Fae ke 
Lan | 


Si iy 


ts! 
2} Par 
Lat 8 ont 


aris 
it ft: 


Tr. 
{ nie? 


ttt 
fi 
i ti 


on. 
Same 


it ts 
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In this program the characters have been defined to show the 
various positions of a running man. These are then printed 
together with CHR$8 (cursor backspace) and CHR$10 (cursor 
down) so that they are printed as blocks of four gradually moving 
across the screen. 


If you want to see the user-defined shapes then add this line: 
285 FOR I = 224 TO 236:P.CHR$(I);” "jI:NEXT 


Now we have a program called “Shoot the Rapids’’. This is a 
game which uses user-defined graphics. These are defined in line 
260 and 270. 


JE REM ££ SHOOT THE RAP IOS oo 

ch REM EE EY STEFPHEM MILAM 4# 

SH MOE +4 

46 VOULS,8.4, 80,8, 8 VOUS, 1.2.8.8. 
mst PROT nsteuck ions 

BM REPEAT 

YH PROSE bie 

se TIME 

ae REPEAT 

Lea PROC 

116 UWTIL characher< oie 

12H time=TIME 

130 FROG le aruer 

146 UNTIL O29" AAO Ce ob" 

156 EMD 

168 DEFPROC ne truct tong 

17H FRIHTTRBC 2.4505 "SHOOT THE RAPIOS 


le PRIAT" In this Same wou are ain the 
small boatb at the bottom of the scree 
notravellinga down a river surrounded bb 
4 Jungle." " 

ISG PRIHT Vou steer the boat bo Press 
ims the "° 

eh@ FRIHT" <2> kew to ao LEFT and the 


2l@ PRIWT" <Me key to go RIGHT." 


‘Br. 


it 
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PRIHT TP sou hat the bank the ctr 
a Tk = es eee 
PROCS Le Pacul tes 
aan EMDR elie 
eit DEF PROC sé tur 
al WOM» ced Sy 42.115, aca She ha 


oor ers } a coed mE Soe a Tar E* ieee ba eb Bes Me Re ae 
a 'g) wo a es , U weet. tet . L226. $ Bee “eee }. oa! é ba ! = =) é eae Ba A Boel 


0) FE ES 
hee | tonal A 12 see et 


SSE REM 4:4 ALTER AU TORERPEAT 

SSE CRF Lia d 

SEG arreosss28: Terk = Lee righb =1le 

Sle FOr T=] To ae 

S28 FPRIATS TRI MGS! Le. CHRO So oS Te GM 
CH." "SO; S7RING&! Le CHR pe etd oo: 

ao HEAT 

S46 EMDRPROC 

Sa DERRPROC ruin 

Bea FRIMTTAES across 
S7@ REM 4: CLEAR EF 
Boe CORFE iS. 

aoe Lefhbank=lert+rRetn Sos 

ded IF lethbanks1e THEM leftbhank=18 
416 rishtbank=riahit+Rhbe Ss o-2 

Gee IF risghtoanké Le THEM ri shitbark = 18 


S.. 3E OG CRIRR 2s 
EEA 


43H IF rishtbank+leéettbank S35 THEM Se 


448 Lleft=leftbhank  righteri ghitba nic 

154 PR INTTARCE 8 0; CHBR LLP ETRINCE Le 
SCHR. Set oo S TRIAGE +b lLePteriaink. 
S TRIG! ri akit os CHP Bo Sitd oo 

$2 FORT=1 TO delay Heat: Reh don DELAY 


Doses THEE sae let 

TF Oe" 2" THEM across = acreage ~ 
IF DS="—1" THEM actroes = armrges +] 
PRIM T THES acess iG 

Ase) SS orcharachercsd WS be PP el OAC 


3 MT i 


UR BE 


mm hs oy m) 
2 


Ge 


FEET ae 1 


well EMDR RO 
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mak DEFRPROI Le arr 
S40 FOR I=1 TO Skee: HEAT: REM ac DELAY 
SoM REM Ke CLEAR REY EORRD 
mek EFA LS. 
mre CLS 
aed PRIMTTAHE: 8.905 "You lasted "Gi lHT o£ 
ime LO oi semonds" 
Sa FPRINTTAR. 3S. 1305 "DO SOU WAT AWOTH 
ER GOy" 
EE REM AA RESET AUTOREPEAT 
Bie FPA Ll. Se 
Bc OR GE Th 
B36 IF OF="""" OR D&="9" THEM PROC P tT 
1oudhes 
Bde EMDR RIO 
BSH DEF PROCMIP PS icuites 
Ge GRRL. 1 
ere PRINTS SO " HOW RRS? Gt WOW WAM TT 
Mm GOT cla" 
ek dare icu lie fe Ta 
SSH IF VAL die Picoult eo] OR WAL dirt 
iboculiys > oo THEM PRIHTIMFUT A HUMBER & 
ETWEEM 2 AMD SS GOTO Gee 
raid delay=lee-LakVvale dap e icu lhe & 3 
Tle EMD ROI 
If you have a Model B machine, or a Model A machine with 32K 
of memory, then you can increase the number of colours on the 
screen by altering these lines: 
ai MODE 1 
$0 VOUS. 4.6 Boe VOUS. Tl. eee ey 
DLLs. 2.2.8.8. 8 
me MOLOURS 
Slt COLOURED PR IHTTAES aceoge » Seog CHR Y 
see os COLOURS 
If you have a Model B machine and BBC joysticks you can also 
alter these lines: 
468 delag=ADYVALS 2o-868: FOR T=1 TO delay: MEST 
47@ IF ADVALS 1 on 2aeee THEM aceoss = 


acre mse —-] 


438 ITF ADYWALS 1 oesSeee8 THEM across across +1 
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How does it work? The program is controlled by two nested 
REPEAT. . .UNTIL loops (lines 60 to 140 and 90 to 110). 


The busiest part of the program is in PROCrun from lines 350 to 
520. This randomly sets up and prints a new line of jungle (lines 
390 to 450). There is a delay in line 460 to control the speed of the 
program. Line 450 shows how to make the screen scroll down- 
wards (the opposite way to usual). PRINTTAB(0,0) sends the 
cursor to the top left-hand corner of the screen and CHR$(11) 
(which is ‘“‘cursor up’’) sends everything on the screen down one 
line. 


In line 470 we have a feature that we haven’t come across before 
— INKEY$. INKEY$ is a bit like GET$ except that INKEY$ 
doesn’t have to wait for something to be entered, it simply looks to 
see if anything has been entered. (It can be made to wait for a 
certain time before moving on, by altering the number in brack- 
ets). Anything that has been entered is checked in lines 480 and 
490. If it is ”Z” then across (which is the position of the boat across 
the screen) is decreased so that the boat will move to the left. If 
INKEY$ was "M” then across is increased so that the boat will 
move to the right. 


In lines 500 and 510, the position on the screen where the boat 
will be 1s examined to see if it is river or jungle. If it is river then it 
will be CHR$(32) — a blank space. If it is jungle then it will be 
CHR$(224). The value is stored in character. 


PROCrun then ends and the program goes back to line 80. If 
character = 32 (that is, the boat hasn’t hit the jungle) then the 
program stays in the REPEAT. . .UNTIL loop and goes through 
PROCrun for every new line of jungle that is printed. Try improv- 
ing the program by counting these to give a score. 


User-Defined Keys 


As well as being able to define your own characters, you can define 
your own keys. These are the ten red keys at the top of the 
keyboard, marked f0 to f9. 


Press f1. Probably nothing will happen. Now enter: 
*KEY1 THIS IS KEY 1 | RETURN 
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Now press fl and 
THIS IS KEY 1 
will appear on the screen. 
So far so good, but not very useful. 


Here is a program that will define your keys to save you some 
effort when entering or changing programs. You will need to enter 
(or LOAD) the program you want to work on. The key will stay 
defined even if you type NEW or press BREAK (but not if you 
switch the computer off!) 


104 RPEMKKPROGRAM TO CEFIWHE FEO KEYSa& 

20 KEY O@LOAD' "tM 

SH KEES TRUE 1 fe 

44@ #FKEVELIST 

Sa AKEYSPRIHT 

54 AKEYS TAB 

TH FREYSFOR T=] To 

S@ EKEVSHERT 

aa EKEVYTREFPEAT 

1H #KEVSUNTIL 

1146 #KEYSMODE? sh 

124 CLS: PRINTTABC 4.180 °"KETS GEFIHED — 
LOAD HET PROGR" 

136 EHD 


The symbol} (which appears on the screen as | ! in MODE 7) 
followed by M means that the command is automatically 
RETURNed. 


It’s also useful to temporarily define keys with long variable 
names if they are to be used often in a program. This saves a lot of 


typing (and mistakes) or the use of |COPY 


In later versions of the BBC computer, pressing the {SHIFT} 
key together with one of the red keys will produce the CHR$s 
for different colours in TELETEXT mode. 


Cut off the strip at the side of the page at the back of the book 
and place it under the clear plastic above the red keys on your 
computer. This will then show how the keys have been defined. 
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The other side has been left blank for you to fill in when you write 
your own key-defining program. 


(If you don’t want to cut the book, copy out the strip on a 
separate piece of paper.) 


T T A Colourful Character 


In order to see the results of the colour commands, it will be 
necessary to connect the computer to a colour TV set. Of course, 
you can enter the programs using a black and white set, and even 
RUN them. This way you can do all the keying, and then SAVE the 
programs on cassette until you have access to a colour TV set. 


There are two ways of producing colours on the BBC computer. 
One way is to use the TELETEXT method in MODE 7 and the 
other is to use the COLOUR command in the other modes. 


TELETEXT COLOURS 


MODE 7 gives a TELETEXT display, similar to that used on 
CEEFAX, ORACLE and PRESTEL. This doesn’t need much 
memory and although the colours are easy to use, the method is a 
bit tedious and possibilities limited. The instructions for the col- 
ours are contained in the PRINT statements. 


Try this (don’t forget to use | COPY] to save typing on lines 
that are similar): 






HINT HINT... . If you have got a later model BBC 
computer the red keys will have been programmed to 
save you a lot of effort. Type *FX 0 and if 
you get any other answer than”0S 0.1 EPROM” then you 
do have a later model. In this case refer back to page 
104 which will tell you what the red keys do. 
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Le MObE? 

ee FRIMTTABS FP. Soa "THIS Is A TELETEAT 
DISPLAY" 

30 FPRIMTTABC ES o"Teletext allows the 
use of these colours" " 


48 FRINMTTABE S03 "REO" s TAB 25 07 "GREE" 


“8 FRIHT TREY Soa VELL" G TAB! 2S oa "BL 
=" ) 

BW PRINT TABS Soa "MAGENTA G TRB! 2S oa iy 
rf m! 

TE PRQTHTTAHB 13.18; "alan flashing" 

Se FRIHT? “ "REO" G "GREEN" G "VTELLOM' Gs "BL 
WEG UMAGEMTAT GU OYAM! GU AHO TE" 


RUN this and you will see that all the text 1s printed in white. 


Now, using | COPY | , alter line 40 to read: 
4HPRIMTTABS Soi "RED": TABC 25 9; CHR130; "GREEHM" 


When you RUN this now, "GREEN" is printed in green. So 
putting CHR$ 130 into the line means that the characters which 
follow are printed in green. But the following lines are all printed in 
white, so the effect only works on one line. You will also see that 
"GREEN" has moved over to the right one space, so even though 
the control character isn’t printed on the screen, it still takes up a 
space. 


Now alter line 50 to read: 
SOPRINTTAB(5);CHR$131;"YELLOW’;TAB(25);”"BLUE" 


Now if you RUN the program you will see that both” YELLOW" 
and "BLUE’ are in yellow. So unless a control character is altered, 
its effect lasts for all of the rest of the line, even through separate 
strings. 


So here are lines 40 to 80, showing the correct colours: 


iCHRS1 Ses "GREEN" 
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Sl FRIMTTAE S05; CHRBLIS1S OVSELLOM" s TAG 
co HCHRRL Sea BLUE"? 

BE PRIA TABC Soa CHR SIL SSS "MAGENTA" : TAB 
C25 0 CHES] S45 UC YAM!’ 

Te FRIHTTHEC 13,15 0; "alan" CHP Le GY 
lashings" 

SQ FRIHT’ “CHRES1LE9; "RED" | CHREL Se: “GRE 
EMG CHRBSL 31a" VYELLO a" CHEB See BLUE GHP 
G33 "MAGENTA" @ CHR S45 CCAM GH RB LSS: 
WHITE" 


Run this to check that all is correct. 


Now alter lines 70 and 80 to read: 


TH FPRIWTTHE! a. 1e os. "also" CHRIS: Ff 
Lashares” 

SE FPRIWT’ “CHRSLSSECHR SIS G URED" | Che 1 
S65 "GREEN" SCHR ols VELLON GCHES] ose UBL 
WE"  CHRS1 330 "NAGEMTA" GHB] ee UIE y AW" iCH 
RPSLSSG "WHITE" 


and add this new line: 


99 PRINTTABS 12 °CHR#136; "flashing" sCH 
RSLS? : "steady" 


So you can see that CHR$ 136 produces flashing letters, while 
CHR$ 137 restores a steady display. 


Have you noticed that where we added the extra control charac- 
tersin line 80, "WHITE" has now gone over the end of the line and 
the last two letters no longer flash? 

TELETEXT also allows the use of double height characters. 


Alter line 20 to read: 


20 PRIMTTABE Po 5 55 CHRS1415 "THI 


& IS A 
TELETE#T CISPLA'" 
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and add line 25. 


25 PRIMTTABS 7.69) CHRS1415 "THIS IS A 
TELETEAT CISPLAY" 


RUN this and you will see that the heading 1s in larger letters. 
These have to be printed on two lines (although you don’t have to 
use TAB, so long as the letters line up). These double height 
characters can be coloured in the usual way and don’t have to be 
the same colour top and bottom. 


Try this: 


26 FPRIMTTAB! 7.5 35 CHR 141 CHE BLS. a "TH 
Is I5 A TELETE*T DISPLAY" 

So RPRIHTTABS Poe oi CHR LAD CHES S33 TH 
Is I5 A TELETEAT CISPLAY" 


Ugh! 
Finally, we can have a coloured background on different lines. 


To change the colour of the background we have to use three 
CHR$s. First we select a colour as we would do for a character. If 
we want red, we would use CHR$ 129. Then we would have to use 
CHR$ 157 which gives us a new background and then we have to 
change the colour of the characters, or else we won’t see them 
against the background. 


So if we wanted yellow letters on a red background we’d use 
(press CONTROL and L to clear the screen and try this direct 
command): 


PRINT CHR$129CHR$157CHR$131;” Yellow on red” 


Here is the complete program with lines 40, 50 and 60 altered to 
give coloured backgrounds: 


18 MODE? 
20 PRINTTABC 7.5; CHR$141;CHRSi21; "TH 
$15 A TELETEXT DISPLAY" 
| 25 PRINTTABS 7.69) CHRS141; CHRS1335 "TH 
IS IS A TELETEXT DISPLAY” 


Cre 
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SE PRIATTABC Bs So" Teletext allows the 

use of these colours" 

4 FRIAMTTABS 3.1827 CHRS1S9 7 "RED" 5 TABS 
257, CHE SL 363 "GREEM" 

SH PRIWHTTAGS S. le oi CHRSI315 "YELLOW" GT 
ABS 2S CHR 1 Sei i UBLUE" 

éG FPRINTTABS 5S. 140; CHRS1 335 "MAGENTA" 3 
TAB 25 0; CHE SL S45 "CVA" 

Tea FPRIHTTAB! 13.183) "also" CHRSIS6G Ff 
lashinsa” 

Sa FRIHT’ “CHRS1S6CHRS1leE9; "RED" | CHES] 
SG. "GREEM"  CHR#1 S15 "YELLOW" | CHRS1325 "BL 
WEG CHRIS 35 "MAGENTA" 7 CHR 1 Se CAM" GCH 
ReLSE 3 "WHITE" 

90 PRIMNTTAB! 12 oCHe$1 367 "flashing" i CH 
RSLS7i "steady" 


Here is a list of the main control characters and their effect: 
CHR$ 129 = red 
CHR$ 130 = green 
CHR$ 131 = yellow 
CHR$ 132 = blue 
CHR$ 133 = magenta 
CHR$ 134 = cyan 
CHR$ 135 = white* 
CHR$ 136 = flash 
CHR$ 137 = steady* 
CHR$ 140 = normal height* 
CHR$ 141 = double height 
CHR$ 156 = black background* 
CHR$ 157 = new background 


(* every new line automatically starts with these settings 
unless altered by the program.) 
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Here is a classical ‘‘Hangman”’ program which uses MODE 7 for 
text, graphics and colour: 


16 REM 440k HAMCMAW FR 
26 MODE F 

38 PROCStartue 

40 REFERT 

SM Ff lass6: check s="" 

BY FROGS £ ridiwor cd 


rel REPEAT 
SM #EFALS 
9H correcth=e 
100 FRINTTABS &. S OCHRE SL Ineot sone 1. 
ehber "“GCHRBS AS 
L1G letter $=GETS 
12s IF AS letter $2c65 OR ASC letters 


1736 THEM VOUF: GOTO lee 

136 FOR T=] TO LEM! check S 2 

J460 IF letter S=MIDSe check S.I.1 5 THEM 
WOLF: T=26: HET: GOTO Lae 

154 WHEAT I 

1609 check $=check $+ letters 

17@ PRIWTTABD 1S. Soi CHRSLAS Ss let 

1e6 FOR T=1 TO LEMS word 3 

196 IF letter $=MI 08" word$.1I,1%9 THEN F 
RIMHTTABS I-1,169;3 letterS: letter=Lettert+] 
Dcorreckl=I] 

2ok HEAT I 

S15 TIMES: REPEAT WHTIL TIME=1ee 

228 FRIHTTABS 2a. 333" " 

230 FROCusecd 

“48 IF letter=LEN* word$ > THEM FROCGot 

S54 IF flage=l1 THEM 2 

266 IF ocorrect=6 THEM @rreorterrort+l : P 
Rit actin 

er UTIL ermores 

eon | PRIMTTABS @. CHRBISSCHRS13S7°CHRS1 
S15" SORRY ou “ARE DEAD! I" 

230 FRIHT’ "THE WORD WAS: - " 

360 PRINTTABS @.16 23 words 


mt 
iF 
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S10 FROCanotheroo 

Sel UAMTIL PALSE 

S38 DEF FROCarother ac 

24H PRIWNTTABS 6.25 05 CHRIST CHRS LSP CHRS 
nei aoeene S60 "DO TOL WANT AMOTHER GO "CH 
7 ec eee ae ee 

che) 5 WHieGETS 

Sek Cobos 

or@ IF VHC e' YS" AND VHB o's" THEM FRI 
HT THES b+. dea" Cond bye" > EMD 

SEE ERATE. Gi 

396 EMDR ROC 

106 DEF FPROCSstar tur 

d1o FRIMTTABS le. foCHR $1 S9CHR$141"HAHG 
irate” 

420 PRIHTTAHB! 12.3 sCHREISSCHR S141 "HAMG 


{ 


436 TIME=@ 
4446 rnumberofwords=4: Le 
458 REPEAT 
4680 READ words 
47° rumberotwords=rnumberofwords+ 1 
450 UNTIL word$="HOMOREMOR DS 9: ru rmteroo 
igs =rniuimberofk woe ds — 1 
$90 DIM usedwords numberotiwords 3 
S00 RESTORE 

Sie FPRIHT “CHES1 313i "There are "i numbe 
rofiwords s” words in thie game" 

exh PRIHT CHRSLSL" You are only allowe 
do mistakes" 

S00 FPRIHT! (CHRSL31"Pre 
SSPACE? "CHESLS1l"bar to c 

[4H Waitts=GETS 

S50 FOR IT=1 TO nunmberofwords ‘ usecduserd 

2. Clit: ME T 

56M ENMDRERUIC 

Sra COEF PROC i ndword 

S96 letter=G:errors6: correcth=4 

590 word=RHO" numberofwords > 

6M9 IF usedwords« word 3=1 THEN 59a 


Terror e 


ia 
cr 


terse 


2 the" CHR#134" 
i 


S 
iS binue” 
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O1E usedwordset word j=] 
62 FOR T=1 TO weed 
36 READ words 
44 HER T 
MW RESTORE 
SM CLS 
YA PRIWTTABS 7.89; CHR $1345 "ABCDEFPGHI 
KLMHOPGRS TU meu 
Boe PRINTTAEC 8, 10% 
B90 FOR [=1 TO LEMS! word 3 
Tree PRINT" 
Til HERT 
rea FRIHTTABG Sd 35" " 
r34@ EMDPROC 
T4o CEF PROCused 
Fou FRIHTTABS S4+C ASK! letter S$ o-65 9.1 35" 


hh 1 oy 
“J h tA i 


reg EMDPROC 
rra DEF PROCSoat 
reg FRIMTTABS &.4 a; CHRS12S9CHES] SECHES 1 


TCHRS1SS5 " FO GIT IT! " 
T38 PRIMTTABS @.5 3 
SO6 FPROCansther so 
S10 flag=1 
S26 EMDOPRUOC 
S30 DEF FROG vi chim 
S49 OH error GOTO She. S86. 928. 948, 988 
»1038,. 1876, 1698 
o58 EMDPROC 
SEQ FPRIWHTTARS 15.21 2: CHE SL SS STR IHG So 
a, CHR SESS 3 
Sra ENMDPROC 
sso FoR T=1 To 14 
m9 FRIHTTAERS SS.6+] 2) CHR ST SSCHR SESS 
989 WEXT 
916 ENMDPROC 
9260 PRINTTABC 17. PO; CHREL ESS STRING TP 
JCHRSSES 3 
938 ENMDPROC 
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= 
at 


faa Go 
POC & ht fd Elo oe mp oy ot Bb 


POR T=1 To 

PRIHTTHES 2o+]. P40 os CHRSL S35". " 
MES T 

EMDRPRO 

FRIMTTABS li. aa" 
PRIMTTARS 146. 90 CHE SLS1; "Rie" 
FRIMTTAHB! 15. L@asCHRe Loos" yea yn 
PRIWTTABS Le. dd ai” 

EMDR ROC 


ma Wa 


Ca Tm fi 


SF ls Wy bs Lil ta 
x3) 


ES 
Ta af 


G20 FOR I=1 To 3 
G4G PRIMTTABS 16.1241 7s CHRS129) STRINGS 


rte be et be be 


Feith eo 3 CHR S13 

HEAT I 

EMDR ROI 

1U7°H FRIWTTAHB! le. lec 3 CHelesi "CD" STRIH 
0 S. CHRBLSS GU CHR BL AS 

LENSE EMDR ROI. 

Leise FOR T=] To S 

1108 FPRIWTTABS 16.1547 2 CHEB SSCHR B25 | 
" "7 CHEESES SCHR] BS 

L1io) Heat 

Ll2b PRIWHTTAB! 14.750 CHRS1LSS" O00 ooo": 
MAR 1 SS 

i136 ENDFPROC 

lide CATACOMPUTER. RET BORRD . Mer oP ROCE 
DURE 

1158 CATAHRAMOOM. REPEAT. ODSCDR IVE. SOUME 
Line DATACASSETTE. AEROFLAHE. OUSTEIM. FI 
MISH 

1178 DATALEAP. BOOK SHELF. PUSELE. CHE St 
Liss CATANOMOREMORD NS 


me Re I 
es 
9 HT & Gi 


As this program is in MODE 7, there is plenty of space left in the 
memory to add new words. As it stands, the program uses about 
2.5K bytes of memory space, the screen display another 1K byte 
leaving about 12.5K bytes left for words! Enough for about 1000 
words, even on a Model A machine. Extra words can be added in 
DATA statements with line numbers Jess than the line which 
reads DATANOMOREWORDS. Change the line number of 
DATANOMOREWORDS so that it is always the last line of the 
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program. Be sure to DELETE any earlier ones or else the program 
won't be able to get past them. Be careful with the words in DATA 
statements, don’t leave spaces between the words and the commas 
(,) and be very careful not to leave spaces at the end of lines before 


pressing | RETURN]. 


There are some useful ideas in the program for when you write 
your own programs. 


Line 120 checks that the character entered is a capital letter 
between A and Z. Lines 130 to 150 compare the letter just entered 
to all the accepted letters (in the string check$) that have already 
been entered. Any letters which have previously been entered are 
rejected. Line 160 adds the latest accepted letter to check$. Line 
190 compares the entered letter to all the letters in the word to be 
guessed. 


PROCstartup (lines 400 to 560) counts the number of words, 
declares the variable and sets up an array word$(I) which checks 
whether a word has already been used in this game. If so, it is 
rejected and another 1s chosen. 







HINT HINT .... If you are using an Acorn Electron or 
an Atom without MODE 7, you can still adapt this 
program to run in another mode such as MODE 4. Take 
out the CHR$s but increase the TABs to make up for the 
changes. 








COLOURS IN MODES 6 TO 0 
MODES 0, 3, 4 and 6 can display two colours at once. 
MODES 1 and 5 can display four colours at once. 
MODE 2 can display 16 colours at once. 


Normally when switched on, the two-colour modes display black 
and white. The four-colour modes display black, white, red and 


A COLOURFUL CHARACTER 117 


yellow. MODE 2 can display the same colours as MODE 7. The 
two and four-colour modes can be made to display other colours 
than those mentioned, although the maximum number of colours 
that can be shown at any one time cannot be increased. 


Type in (as direct commands): 
MODE 5 


COLOUR 1 |RETURN| —_ the text on the next line 
turns red. 


COLOUR2 |RETURN| —_ the text on the next line 


turns yellow. 


COLOUR 3 |RETURN| —_ the text on the next line 
returns to white. 


Now try COLOUR O | RETURN | and try typing something. 
You can see the cursor moving, but no text. What happened? 


COLOUR 01s black and so the text is there, but you can’t see it 


because it has merged with the background. Press; RETURN 
and the computer will probably answer with “MISTAKE” although 
you won’t be able to see it. Type the following very carefully: 


COLOUR 129{RETURN} the background on the next 
line turns red (now we can 


see the black letters). 


COLOUR 130|}RETURNIE the background on the next 
line turns yellow. 


COLOUR 131|RETURN)- the background on the next 
line turns white. 


COLOUR 129: COLOUR 1{RETURN|- 


white letters on a red 
background. 


COLOUR 128: COLOUR 1|/RETURN]- 


white on black as usual. 


Here is a list of the colour numbers tn the four-colour modes 
(MODES 5 and 1): 
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text background 

0 black 128 

l red 129 

2 yellow 130 

3 white 131 

Here are the colours in two-colour modes (MODES 6, 4, 3 and 
QO): 

text background 

0 black 128 

l white 129 


These numbers refer to the logical colours. 


Key in this program and RUN it to see the effects. 


10 MODE & 

26 FOR testcolour =8 TO & 

aE FOR backoroundcolour=131 TO 128 3 
TEP] 

46 COLOUR testis lour 

fe COLOUR back Seog 1] our 

be PRINTbextrcolours " F "Gback around 
olor 

Te HEST back grounds Lour 
HEAT testicolour 


If you have a Model B machine, or a Model A with 32K then 
alter these lines: 


16 MODE 2 

26 FOR textcolour=8 TO 7 

34 FOR backSroundcolour=135 TO 128 s 
TEF—1 

35 FOR [=1 TO Sea: HET 


™, 


£ 


8) 
~ 


and then for an even more spectacular effect alter these lines again. 


26 FOR textcolour=6@ TO 15 
340 FOR backSroundcoltour=143 TO 125 3 
TEP~1 
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These programs will demonstrate all the possible combinations 
of logical background and foreground colours. 


As mentioned previously it is possible to change the colours 
actually shown on the screen in the two and four-colour modes. 


Here 1s a list of the actual colours and their numbers: 


0 


CON CO UN BP WW NO 


\O 


10 
11 
12 
13 
14 
15 


black 

red 

green 

yellow 

blue 

magenta 

cyan 

white 
flashing black/white 
flashing red/cyan 
flashing green/magenta 
flashing yellow/blue 
flashing blue/yellow 
flashing magenta/green 
flashing cyan/red 
flashing white/black 


The change is made by using a VDU19 command, like this: 
Suppose that in a two-colour mode you want blue letters on a cyan 
background. We would need these commands: 


10 MODE 4 
20 VDU 19, 1, 4, 0, 0, 0 
30 VDU 19, 0, 6, 0, 0, 0 


RUN this and type something and you will see that you are 
typing in blue letters on a cyan background. 


120 A YOUNG PERSON’S GUIDE TO BBC BASIC 


How can you use the VDU19 command to select the colours that 
you want? 


code to select this is the 
colour change actual colour which 


will be shown on the screen 





VDU19, 1, 4, 0, 0, 0 





these zeros must 
be shown. In later 
versions of BBC BASIC 
they will be used for 
further control 


this is the 


logical colour which 
will be referred to 
by the program 







The logical colours and actual colours can refer to background 
colours as well (as in line 30), but don’t use the logical background 
numbers (128 and above) as these don’t work here. Instead, use 
the logical foreground number for the same colour. 


Here is a program to demonstrate all the combinations of col- 
oured foreground and background that are possible in just a two- 
colour mode: 


10 MODE 4 
26 COLOUR - COLOUR] 28 
34 FOR back oroundcoloaue=15 TO @ STEP 


46 FOR textcoloure=15 TO @ STEP-{ 

60 YOULS.istextoolour, 8.8 

rQ YDOULS. 8, back Srounde Olour. B.e e 

re PRINT" SAE" ; theetcolours: ER" Gbacks 
rondo Louie 3 aE" 

96 HEBRT textos lou: 

146 HEAT back Srna 1 ice 

116 VDUSe 

120 PRIHT ERRREPEEOREEKSE" 
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If you want to examine each combination for longer, change line 
50 to read: 


50 waits} = GET$ 


Each combination will then stay on the screen until a key is 
pressed. The bottom line will tell the numbers of the actual fore- 
ground and background colours. From time to time all the text on 
the screen will disappear. This is because the foreground and 
background are printed in the same colour. In fact this happens 
with the first combination. 


Here are some effective text colour combinations in two-colour 
modes. Try them and fill in the colours you got in the space 
provided. 


VDUI19, 0, 4, 0, 0, O (try this in MODE 6 also). 


VDU19, 0, 7, 0, 0, 0, 19, 1, 0, 0, 0, O 
(Notice how you can put two VDU commands into the same 
statement — make sure that you put in the right number of zeros.) 


Here is a “Maths Quiz” program: 


16 REMERAEEA MATHS GUIS RARE 


so MObE4 

x) oc i Ge 

dia VOUS. ced. G16. a. led. o, 16.8, @ 

a) WDU22, 255,255, 255,255, 255, 255, 255 


“else ie 0 i ise 
a] ane | tees! tees * see! “ea! 


Be WOWLS. BP. Bk 

TE VOULS. 1. Gl. el, el 

SS wronsbhotea lest rishtbota l=: chee 

9@ REFEAT 

146 CUS | 

116 PRIHTTAB! 13.3503; "MATHS TEST" 

126 PRIWTTABC @. leoi "drach lewel ¢ 1-95 
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13280 léwelS=GCETS 

1490 léeveleVALe’ levwe Lo 

15@ IF level<i1 GR lewel?oS THEM VWOUP:G 
ATO 1we 

160 so-8 

i7@ REFERT 

136 CLS 

136 PROC choose 

206 FROCP rob Leta 

2146 PROCanswer 

ec so=a0+1 

238 UNTIL sao=18 

S46 FROCresults 

25H FRIMTTABS 3.260" Ce sou wank arable 
een ed ORL 

268 another ao#=GE Ts 

ere ITFanotherso$. 2" 7" AMD another oo8< 
’"a" THEM EMD 

ese UMTIL FALSE 


O 2168 


188 
1616 
16265 
1a38 


Lado 
1838 
1868 
1a 
1500 
aBAs 
2015 
22g 
238 
eb4y 
2638 
-866 
2872 


DEF PROCMchoose 

S18n=RND¢ 4 3 

IF 2isn=1 THEN signS="+" colours] 
IF signee THEM sign$e"—" oo lous 


IF sign=3 THEM sisnB="#": colour=e 
IF sisn=4 THEN sian#e"-" oso lourss 
WDOULS.1.colour. 6,8, 8 

EMHDFROC 

RPEPERT 

DEF PROCK rok Ler 

Worse 

vVhab=S  hitabezeu: PROCS an 
ARKO. Lee Le we lo 

B=RHDY Lok lLéewel 3 

IF sisné="“" THEM FPROCdivision 
PRINTTABC 16.15 3:0; 

IF 2139n8="#" THEM FPRIHT" se "a: GOT 
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CT 
ria 
A | 


Pr. 
tel 


Lda dd fa fg ha fe Po 


fot [1 ee My Re oy Uy ~- 
2 A ta Rs Ro Ga Ma Co 


2m & Mi mie ee Ed -_- 


: 

} 
{. 
i 


rst 022 


- + 
ct 
=. 
ese’ 


RRR wi) 
nc 
ry 


mi To my * 
m3 MG Ge tot 


9 7 Cee 


1 


4020 
tali' 
mG eo 


Wr ons 


ee es | 
Ci Me fa Ma 


618 
aay a ea 
7 86@g 
rale 
Be 
TrO3g 
7644 
(O58 
786 
7Orea 
7rB8o 
7096 


> AMD 
> THEM PROCright ELSE PROCwrors 


123 


IF signge! 
"3; :-GOT0e10a 
PRIHT" "seianSir "3 

FRIMTI Gs" = "5 

EMDFPROL 

DEF FROCa newer 

FRIHTTARC 23.135 43" " 
PRINTTABS 23.15 93 > IMPUTanswers 
Moraniswer $=" +37 onsev a" 

IF VALS answers oC EVALS coranswers 3 
VALS answers oeC EVAL coranswers 


" THEM PRINT" "iCHRS< 2 


IF flas=1 THEM 32816 

IF lasses THEM EMDR RCC 
DEFFROCresults 

CLs 

PRIWTTAES S163; "You got 
Correct anétwers” 

FRIMT' TABS Soi"and "sIuronstotal: 
ones" 

EMDFROC 

DEFPROCS i an 


"Srightts 


IF sisns="+" THEH PROCP lus 
IF sisnS="—-" THEM FROCminus 


IF s1an$="%" 
IF signg="-" 
EMDFRAC 


THEH 
THEH 


PROCti mes 
PROCdi vide 


4 DEFPROCdivision 


C=A#E: Z=A: ASC: CH'S 
EMDPROC 

DEF PROCrisht 

FORI=1 TO 2 
VOULS,80,RH0¢ 7 5,0.6,8 
VOUIS9,1.RHO¢ 7 5,6,.6,8 
FOR delay=1 TO 1356:WEKT 
HEAT 

VDIU13,6.7,.0,0,8 
WOU19,1,.colour,.8,6,@ 
flage2 
rishttota 


lL=righttotal+! 
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roms ia] Si 
AA 
ALG 


nm - 
o) S a 


tm ta cr O 
=> 


7 ft 


Gr a 
t= 


GO GG & 


Whe GO Oh we Go fom : 


fi i 00 


32 


mt 


us 
st 


LHF) s 


Gr ar 
at F. 
amit 


SFT Wo Lo ko 


a 
t 
eS 
—" 


=, 
& 
= 


a 
Ga 
ic9 
i 


@ 
Taw me 
fat : 
ms 


dal 


SS SAGA sacggaa gags 


a Cs es as 
be ee pe 8 
? Th 7 
> 
Car Gs 


 & 
io Te 
i 


Lilgse 
lige 
11652 
Leaae 
Lew1e 
Lege 
12630) 
12040 
12856 


her 


J FR 
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EMDR ROC 
DEF FROCwreons 


PRIMTTAES @. 23a" that is tok 


rt a di aa 


coreech arewer" 


wr ons=yronst 1] Pr Las] 

IF wreons=3 THEM FRIWT' The correct 
ie:- "GEVALS coranswers oo wransee 
FOR delay=1 TO +8: HET 
PRIMTTAES 8.15 23 SPCC soo 
PRIHTTABS 8.1995 SFC8 ao o 

uronstota leweonrstotal+d 

EMDR ROI 

DEFPRPROCF lus 

FOR J=-2 To 2 

PRIWHTTABS htabs vthabt] 2: CHR RESS 
PRIMTTAHES h#thabtlovbat oi CHRSSSS 

HE eT 

EMDR ROOF 
DEFFROCm I nus 
FOR Js! TO 
At THT TABS kitaket I. 
MEST 

EHD PROC: 
DEFFROCLi mes 
T=-2 TO 2 
PRIMTTAES hitabo-lovhabtl oo CHR RSS 
FRIWTTAES htbabtlowhabt] oi CHR $255) 
HES T 

EMDFROC 

OEFF ROCK i wi de 

FoR J=-2 TO 2 

PRIWTTABS h#tabt+lowhab os CHR S255 
MEE T 

FOR [=-2! 
FR THT TABS 
HE T 
EMDR ROL 


ones 


teow 


wih. chia 03 ts | a: ecen 


To 2 STEP 4 
htab.wtabt] os CHESESS 
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Maths Quiz uses MODE 4 which is a two-colour mode, but the 
colours are redefined for each type of question. There is also a 
multi-coloured display for a correct answer. 


The main part of the program is in two nested REPEAT... 
UNTIL loops (lines 90 to 280 and 170 to 230). The inner loop calls 
the PROCEDURES as required, the outer one keeps the program 
going until the player decides that he or she doesn’t want another 


go. 
There are one or two new things to look at. 


Line 3040 uses EVAL (which is short for EVALuate). This 
works out the answer to a mathematical expression which is 
entered as a string. EVAL 1s useful here because it has been easy to 
make up the question into a string using randomly chosen ele- 
ments, PRINT the string and work out the answer. 


Lines 8050 and 8060 use SPC(39). This is simply a compact way 
of telling the computer to print 39 blank spaces. Of course, any 
other number or a calculation could be put inside the brackets. 


In PROCdivision (called in line 2050 and shown starting at line 
6000) it was found best to start off a division by knowing the 
answer and then working out the question. The normal way always 
ended up with an answer like 7.7777777. In PROCdivision the 
two numbers are multiplied together (C=A*B). Then C and A are 
swapped around. Then A (which was C) is divided by B and the 
answer is always a sensible whole number. 


You will certainly be able to improve this program. Try putting it 
into MODE 5 and use four colours at once (you'll need to change 
all the TABs). When you’ve read the next chapter, you will be able 
to add some sounds for correct and wrong answers. 


T 2 Play It Again, Computer 





Your BBC computer can make sounds. You can hear some every 
time you switch on, or SAVE a program. We’ve already used 
sound in our programs with VDU7. 


Type: VDU7 | RETURN 
There are two sound commands, SOUND and ENVELOPE. 
We'll try SOUND first. 
Try this: 
SOUND 1, -15, 41,10 |RETURN 


This command contains four numbers (parameters) to control 
the sound of the note. 


127 
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channel number note (pitch) 


SOUND 1, -15, 41, 10 





volume 
(amplitude) 


length 


(duration) 





CHANNEL 

There are four channels, 0 to 3. 0 makes noises rather than musical 
sounds. The other three channels can be sounded together to make 
chords. 


AMPLITUDE 

This controls the volume of the sound. —15 (surprisingly) is the 
loudest, 0 is the quietest. Numbers between 1 and 4 can also be 
used here, but only in connection with the ENVELOPE statement 
which we will try later. 


Try this: 
18 CLS 
“4 FOR wolumese TO-LS STE 1 
30 PRIHTTABC LTE. 1G 53" Maeda OU 


46 SOUND Lowolume, 145.20 
5@ [=INKEY<¢ 208 : 


ro | t “| EE os T re a 1 Life 
7A SOUHD 1.6.8.8 


PITCH 


This determines the actual note that 1s sounded, whether it is high 
or low. The scale goes from 0 to 255. For the musical, semitones 
are four apart. Middle C is 53. 


To increase the note by a semitone, the pitch number is 
increased by 4, for a whole tone, 8. 


PLAY IT AGAIN, COMPUTER 129 





Try this: 


16 CUS 

fe POR Pitech=5 TO 253 STEP 4 

36 FRIWTTABC 16.1608" "“Gpadteme to" 
A SOW doe dT SuPiteh. Se 

mk LT=THRE YS Se 3 

Be WEST Pitch 

Fe SOU 2... a 


- ww 


DURATION 


This controls the length of time for which the note lasts. It 1s 
measured in 1/20ths of a second. 


Ji Ls 

SE FOR ouration=)] To Sk 

S60 FRTMTTABC Le, 16 oi" “adueabaoni? " 
46 SOUND doeLS. 149. duration 

Sl TINK e Ys See 3 

BE HEAT durabior 


oats ines toe on | . ‘ an oe oy 
ry i'l ane il Ca I. ie | t I. al a I J ts 


Again, for musical readers, here are the approximate note equi- 
valents: 


Poi] 


dotted 
semi- semi quaver dotted crochet 
quaver quaver quaver 


2 3 4 6 8 
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e ° Oo 


dotted dotted semi- 
crochet minim minim breve 


12 16 24 32 


Try this (use the |COPY] key to save effort): 


1@ SOQUMDI Ai. Loo »1e 
26 SOUMHb. 1S. i1P. le 
30 SQUAD. -1S. deo. Le 
de SOUNDis-L8o117. 16 
St EQUAL 1S Led. Le 
SOUHMDI.-~1S. Leo. S 

SOUIHMOL. ~LS.117.5 

SOUMDTs LS. 121.12 
SOUND. ~LE. les. Te 
SQUIMO I s- 1S. das. 1a 
SOUND. -Le.117. 16 
SQUIHDL.-15.181. 28 


RUN this and you will hear a familiar tune. 


Gi 


a a 
Pr G40 to -j oy, 
ME Gi fo fy & 


Here is the same tune, the program is written in a different way. 


REPEAT 

REAC ame litudée., Pitch. duration 

IF amPlitude=se THEM EMD 

SOUMDG. ane litude. Pitch. duration 

KM UWHMTIL FALSE 

SOQ OATA-15.,129,18,-15.117,18.-135.,.122 


eee | 


— 
“aa! 


Gm 


nf 03 fi 


S18 CATA-1S.117%. te.-15.18).18.-15., 185 
Se DATA-1LS.117.35.-135.121,.18.-15,. 105, 


M DATA-13.129,.16.-15,.117%.16.-15, 181 
:4,8,8 
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RUN this and then try these changes: 
S ENVELOPE 1,1,0,0,0,0,0,0,127,-2,-10,-1,126,0 
40 SOUND 1, 1, pitch, duration 

If you want the program to RUN without stopping then change: 
30 IF amplitude = 0 THEN RESTORE 


(you will need to press | ESCAPE | to stop the program). 


ENVELOPE 1s a powerful and complex command. We can only 
start to experiment with it here, but we can hear some of its effects. 


ENVELOPE is in two parts, the pitch envelope and the amp- 
litude envelope. We can define four different envelopes, and each 
will have fourteen parameters. 


envelope 
number 


length of each step change of pitch 
in 1/100ths second during three sections 


of sound 





oiteh emelope number of steps 
(0 for do) in each section 





how fast the how fast the how high the amplitude 
amplitude increases amplitude decreases should be at the end of 
during attack during sustain attack 





5, 126, 20 


how fast the how fast the how high the amplitude 
amplitude decreases 


during decay 


amplitude decreases should be at the end 
during release of decay 
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Here is a program which uses ENVELOPE to change the amp- 
litude envelope: 
REM ARRRREA AMTHEM FARRER EERE 
EMWELOPE 1.1.8.8. 8, 8.8,0, 127. -a.-16.-1, 


= 
tJ 
) 


RESTORE 

REPEAT 

READ channels ame litude. Pitch. duration 
IF charnne l= THEM EMD 

SQUAD channel. le Pitch duration 
WHTTIL FALSE 

REM d4RCR BAR Mo. 1 GORGES URCR CRE ACE 
DATALELB1.-15 hoes 

DATARELES. 18.89. 24 
DATAL.s~-l2.137.6 

DATAL,-1le. 145.6 

RET RARE BAR Mite. 2 GRGRRRCRCHRRCRCRER EE: 
DAITABALEL. ~1S.)133.42 

DATAEBLeS ~1B,21,24 
DATAL.-le.1lar.d 


7, UN fe ct Pa 


Pa M Fs Fa fo Mm Tam fom |) f © © & mi Ts Gs 


aah 


ie Fatg o£ 


UW 


~{O1 UE wif 


SH DATA. ~le. 145.0% 


tt 


REM cA BAR Mio. SRR RRR RCEE EE 
CATARMLELs -15. 185.8 
DATARELES. -1e. oo. Set 


z 
—s 
om 
i43 


@ DATAL): 12. 185.8 
G@ CATAL, 12.105) 


REI 2h BAR Bog sd GeoRSS R CEA 
DATARHLE1L. -13, 1635.12 
CATAL@1IG2,-18,85, 24 


feo Ph Th Po Ra Pec ee ee ee eee ee pe 


1 EB Oo fet ee 


i. 
iy 
a} 


om & 


re DATAL. 12,145. 4 
Sa OATAL,-~1le.13ar.3 


REM GREE OBRIRD Pio. 3 SESE ERE ERE 


33 


fo tahy foro 


a 

G8 CATAR@1G1.-15,145.8 
31Q DATAL@102,-10. 21.24 
228 GATAL,-12.137.6 

B20 DATAL,-12.133.¢ 


os 
3 


REM 4oCGCE BAR Mo. AGRE AREER ERS 
OATAS@ TEL. Lo, lar. 
CATAL Lee. Le. oo. oe 


Ot ig Lu wa 
moh & i 
Gm & 


PLAY IT AGAIN, COMPUTER 


78 
ited 
238 
4A 
418) 
ood 
430 
‘44g 
a 
$58 
47k 
45 
44 


mi 


S10 
S28 
530 
S46 
aad 
aL 
S78 
SG 
ake 
aL 
BLE 
mek 


REM GGKKE BAR Ho.? 
DATAR@LG1.-15. 117.8 


DPATARBWI Ge, -1e. ooo 
PATAL. -le.117.8 


DATAHL«a-1e.117. 
REM FcR BAR Mo. 3 
DATARGLEL, -Lo.11F%.128 
DATALEL Eas ~ Lie ots ced 
CRTAL.,-12.189, 4 
DATA. -1e.165,6 

REM AGRE BAR Heo. 2 
DCATARELG1L. -~-135, 169, 8 
DATARM@LAS. 1a. 21, 4 
CATALs-le. 185.3 
OATAL. -~12.189,8 

RED dake BAR Mo. Le 
DATARE LE. 1S. 18s,12 
OATH Btu ele. els et 
DATAL, ~le. 185, 4 


cnt 


4 DATA. ~l2. 9758 


RED Aa CEE BAR: Mo. ld 
DATARMLAL. 15. Le 
CATASELGZ, -10, 5 sich 
CATAL. -le. les, 4 
DATA dsavle.18&,4 
DATA loerle. oe. 4 
DATA loer-lewio, 4 
RET] RCE oGAR Mi. dic 
PATARELTEL,-1S,185,1¢2 
CATAE] Glam Li Sats She} 
DATAL.-le. 1a. 4 
DATHIs ele. Livi 
REP SCRE GAR Mo. 13 
DATA Tee. -1Le bls 
DATHRBLEL. ~1S. 125.5 
DATA dere. 1aS, 3 
CATARGIGL ~1e, 10. & 


4 DATALGLG2,~18.69. 


OATHAGIGL 12.9? oe 


A DATARS. ~ie.el.e 


SRC ACRE EEE EEK 


ee i 


AE ARR REE ERE 


SERRE CCR RRR A: 


RCE EE ERR CE AE. 


eR A Ae RR SR A oR de 


a ae ee i A A a 
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Pre REM 44GCE BAR Mow] ARRAS EEEEEE 
730 DATALG1@1,.-15,.89, 24 

790 DATAR@1A2.~15.41.24 

S00 DATAG. 6.8.8 






HINT HINT ....The DATA items at the beginning of 
the first two lines of each bar are a command to make 
two notes start at exactly the same time on different 
channels so that they make a chord. 






Try changing the ENVELOPE command with these: 
20 ENVELOPE 1,5,0,0,0,0,0,0,12,32 —25,—25,126,80 
20 ENVELOPE 1,5,0,0,0,0,0,0,127,—32 -10,-25,126,0 


Changing the pitch parameters can produce some surprising 
results. Try: 


20 ENVELOPE 1,5,10,-10,-10,25,25,25,10,0,-5,126,100 


Listen to the effect and try to see how the command works. Try 
experimenting yourself. 


Finally in this chapter we have a program to use the computer’s 
keyboard as a musical keyboard and display the notes played. 


The program uses high resolution graphics which are not 
explained until the next chapter. Just type the program in and you 
will be able to understand later how it works. 


10 REM ##EER4R4E KEY BORRD eR E 

<0 REM #£4* BY STEPHEN MILAM AF 

30 MUDE4 

460 FROCdr aw 

24 REPEAT 

66 FOR KEYx=1 TO 16 

7Q@ IF KeE‘*’=1 THEN RESTORE: PRESSED.=a 


PLAY IT AGAIN, COMPUTER 135 


ME READ KE SHO. KE Y's 
ai IF THRE YS KEHIN 3 THEM HEMP ITOH. =] 
AES TRE nobe$. FES SR++ PRESS EDR 1s VOLUME 
Me gee TO 
lei IF HEMP ITCHAS CRPITCHR THEM ors: FA 
MRSS SSAC teed eI TCHS SeMEMWP ITCH: IF OA 
CROSS ee lew’ THEM PROC lear 
116 SOUNDER 1s VOLUMES. FITCH 2 
12h FROCSt ave 
{id MET 
4c) iF FRES oe. Se THEM WOLUMES se: PIT 
Mosel: MEM I TCHS 
ee WMT TL TEL SE 
lew OEFFEROCdr- aw 
Lrg eee BRR MOVER. SEE PLOTS. LSS Gs 
Ei PLUTS Le. et 
190 PORT =o ‘Ta Liz 
ari MOE, 300: RAMI 90 
21 DRAM I+ led. Ge 
Sek DRAM Ts See 
cook MEAT 
Sd FOR ise TO Ji6e@ sTeEF las 
SStl TF P=6e OF Tear eé OR [=See THEM 3a 


SPM PUD Ty SE 
27 MOVE. 4 


SSE PLOTS. I1+120, ay 


wd Ll ‘here na eat 

Hele) MES 

S18 yg “SMECWEIHIE. co 

S28 WOUS:> FOR I=@ To LEMC KEYS > 

SSR MOVELESEL+42. 480 FRINTM IDs KEYS, I 


He MET 
Soe RES Be" Di EG 


my a i."] lis \. il l II ! H 


ore VOUS POR Tse TO LEM Keys 3 
Sik MOVE LEE T+ 1 le. SS8 FR TMT Dee KEYS 
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mae HE T 

Lee WV CLled 

die FoRI=1] TO & 

t20 MOVER, PRB+ I eas 

SSE DRAW LESe. PAE+ DRS 

$4 HET 

456 PITCH S6: WOLUME As PRESSED Ya: Ae 
Cie ey 

469 nobes= "SOCK VGbhH IMs 2 HEAP ITCH 
eed 

SPE ees 

G86 EMDR RCIC 

494 DEF FROCs tas 

SHA TF PRESSED i Me onset THEM EMDR FR 


oon, oom, 


SLA onk=] 
Reel HE LGHTY=KE Ys 


S30 IF KEYk=11 THEM HEIGHTs=2 
S4@ IF KEYR=12 THEM HEIGHTH=2 


ui 


Sok IF KevYs=13 THEM HEIGHT = + 

Kee IF KEYs=14 THEM HEIGHT *+=¢ 

ere IF KE = 1 THET HEIGHT2=? 

aa bat | IF REYs3=16 THEM HELOGHT <= 

Set WOE : MOVEACROSS, 722+HE LGHTY Ba 

Be IF KEY 21a THEM PRINT #0" ELSE FR 
THT" cy" 

B16 WOlte 

B88 MOVWVERCROSSs+56. POE+HELGHTSMALE 

B26 CRAWACHKOSS%+56. °SR+HE TIGHT .e1Le 

B4e EMOPROC 

Bot CERF FPROCclear 

Bee FOURTAQ TO Le: PRINTTAGS &. 0 oi Sei 44 


HET 

FORI=1 To 5 
MOVER. POb+ I FBS 
CRAWL Efe. PEe+ TFBS 
MEST 

ACROSS.= 

EHDPROC 


SN) ond 7d md, oh oy 


ufo & 4 oo ~J 
Qo G2 OQ] © 
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SAE DY TR Se oa me Bel mt a em Det 
Fee GRTA-LeL. B.-A ete se Lee 
[ole ORTA-Lad. 2. -1LGR. 1 eb D mer 


Pre DATA-S4.G.-7e 
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You’ve already moved text around the screen using the TAB 
command. We’ve also defined our own characters using VDU 23. 
In these ways we’ve been able to have graphics output from our 
programs onto the screen. 


The BBC computer has another way of drawing onto the screen. 
This is known as high resolution graphics. 


Do you remember how TAB works? This moves the cursor from 
wherever it is on the screen, directly to the point where you want to 
Start printing. So that it can do this, we give it two numbers 
(co-ordinates) to tell it where to go. 


10 PRINT TAB (10,5) 


The first number is the number of columns across the screen, and 
the second is the number of lines down. So in a 40-column, 32-line 
mode (MODE 4 for instance), TAB(20,16) would start printing 
more or less in the middle of the screen. 


High resolution graphics (which works in MODES 0, 1, 2, 4 and 
5) uses a similar method of moving the cursor. There is one 
important difference. Using TAB, the position TAB(0,0) is in the 
top left-hand corner of the screen (this is known as the text origin). 
Using high resolution graphics, the point with co-ordinates 0,0 (the 
graphic origin) is in the bottom left-hand corner. 

Try this: 

10 MODE 4 
20 MOVE 100,100 
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30 DRAW 1180,100 
40 DRAW 1180,924 
50 DRAW 106,924 
60 DRAW 100,100 


RUN this and you should see a box drawn on the screen. There 
are two different statements, MOVE and DRAW. 


20 MOVE 100,100 


This line tells the graphics cursor to move from where it happens 
to be to the co-ordinates 100,100. In doing so it doesn’t show on 
the screen. 


30 DRAW 1180,100 


tells the graphics cursor to draw a straight line from where it 
happens to be (in this case, 100,100) to the co-ordinates given, 
(1180,100). 


Alter line 10 to read: 
10 MODE 5 
and RUN again. 


The result will be about the same as before, although the lines 
will be thicker. The co-ordinates used are the same throughout the 
five modes which support hi-res graphics, although the amount of 
detail shown will depend on the mode (and the amount of memory 
used). If you have a Model B machine, or a Model A with 32K you 
can also try: 


10 MODE 0 
The range of co-ordinates on the screen are: 


0 0,1023 1279,1023 


to 
1023 


1279,0 





p>>>——_0 to 1279 ——»> 
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Now try this: 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 


MODE 4 

A = 0: B= 0: C = 1279: D = 1023 
INPUT “increment”, inc 

REPEAT 

MOVE A,B 

DRAW C,B 

DRAW C,D 

DRAW A,D 

DRAW A,B 

A = A+tinc: B = B+tinc: C = C-inc: D = D-inc 
UNTIL B>D 


So we can MOVE the cursor to a point and then DRAW a line 
from that point to another. 


Now try changing these lines of the program: 


65 
75 
85 
100 


D = D-inc 
A = A+tinc 
B = B+tinc 
C = C-inc 


Then try RUNning it several times. INPUT 10, 50 and 100 as 
increments. You'll see that as the increment gets bigger, so the 
angle of the line get bigger. Where the line is not quite horizontal 
or not quite vertical, then it is made up of broken straight lines. As 
the angle gets bigger, so the lines are made up of more and more 
small lines and the effect is less noticeable. Change line 10 to 
MODE 5 and see the effect emphasised. 


Then add these lines: 


15 
120 


FOR I= 1 TO3 
NEXT I 
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Then RUN again, using the same values for increment. Finally 
RUN again, using values of 100, 37 and 2. 


Now we can try DRA Wing figures that require more calcu- 
lation. 


1@ REM FAKE POLY GOM oS 

ce MODE 4 

oe radius 38 

44 THFPUT’ Humber of sides "VH 

Sl PVE eb, 1 este} 

He FOR [=@ TO See SsTEF Seeeh 

Ta DRAW SINC RAD Io oAradius ted, 
COS RAGE Io oktreadivetSl es 

SO HEAT I 


The program works like this. N is the number of sides. This 
is used to find the number of degrees in each section (line 
60). The algorithm which draws the shape is in line 70. 


Try entering different values for N. Note that the more 
sides in the polygon, the more circular it becomes. This 1s 
how the computer draws circles. If the polygon has 72 or 
more sides then it cannot be distinguished from a circle. 





In fact, MOVE and DRAW are similar to parts of a more 
powerful command called PLOT. 


PLOT is followed by three numbers, the PLOT type and two 
co-ordinates. 
PLOT 4,100,100 is the same as MOVE 100,100. 
PLOT 5,1180,100 is the same as DRAW 1180,100. 


Here is a program to demonstrate a new type of PLOT, PLOT 6. 
Key this in (note how the inner loop,. lines 90 to 150, uses this 
PLOT twice on the same co-ordinates). 


IT’S ALL A PLOT 143 


Ji 


PRD? RAGE PLOT oi DEMO aE 


eel PDE 
Se PRO da sac 
8 FRINHTTABS 8.80" Rreese SUC ESCAPES! “te 


EMD" 
ate 


rll 


REPEAT 
PROCS ha ies. 


rid UMTIL FALSE 


et | 
peta 
{ag 
Lig 
Lee 
Lat 
Le J RS 
i4e 


Lae 
jee 
ive 
Lie 
J 30 
ad Sa 
eile 
cocks 
eg 
eh iy 
2 dl 
eeu 
Fel 
Pag 
ie 


220 
sak 
349 


Peles TAR SRGR SEGRE E CRC OR ACRE ACER ACR ACR RRR EE 
COEF PROC) ac 

WEISS ecbel S dS 

FOR angles TO sbi STEFF 18 

PEE 4s E 

CRAM Ie RAD area oR COS! RAGS aries 
fel (I 

PLOT GS Dhe RAD aralet leo See, CoS 


Ale ansle+ iio oS 


MET aries le 

Watts ta Eb 

EMDR Rl 

DEF FROCdelag 

FOR delay =] TO Lea: Hest 
EMDR RIC 

ok col Se TS RO RO AR A 
GOERF FROG ceoss hairs 

Fok [=1 To be 

eae a ie a a 

VW=1els# [4 

FF Fe Je] To 

MOWwE es 

PLOT Goi, 12s 

MOWE yy 

PLOT &,1279.'7 

IF J=1 THEM FPROCde las 
HET od 

HET I 

EMDR ROC 


This PLOT type can be very useful. It plots a line which at any 
point is the opposite colour of whatever was on the screen at that 


144 A YOUNG PERSON’S GUIDE TO BBC BASIC 


point before. If you cross an area that was not in the background 
colour, then it will be printed in a contrasting colour, so that it can 
always be seen. Another use 1s for erasing a line that you have 
drawn. If vou PLOT it over itself, then it completely disappears. 
This is used in the PLOTTER program that comes later, for 
drawing the cross-hairs which move about the screen. When they 
are first drawn they can be seen, no matter what they are over. 
Then when they are drawn for a second time they disappear and 
anything else that was touched is restored to what it was before. 


Now try this: 


16 MOCE 4 

26 FOR JT=1 To ei 

306 FLOT 4.6.6 

44 PLOT 4. RHO* lero. Reon Lee 
Sa PLOT 1.108. 48 

64 FLOT 1,-S8. lee 

Te PLOT 1,.-38.-120 

Se HEAT I 


In this program using PLOT 1 we can DRAW to points relative 
to the one where the cursor ts. It’s just as if we change the graphics 
origin with every statement. So PLOT 4 is like MOVE and we use 
it to place the cursor randomly on the screen. PLOT 1 then plots a 
triangle relative to that point. 


Try increasing the loop parameter in line 20 to 200. 


Now to try combining colour with hi-res graphics. This needs the 
use of GCOL. 


First in a two-colour mode, say MODE 4. As with COLOUR, 
two colours can be used at once, and these can be defined as any of 
the 16 colours available. In MODE 4 we can have one foreground 
colour and one background colour. If we don’t give the computer 
any special instructions, then the background colour will be black 
and the foreground colour will be white. 


Add these lines to the previous program: 
110 GCOL 0,1 
120 GCOL 1,3 
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and you will get yellow triangles on a red background next time 
that you RUN the program. This is because in line 110 we re- 
defined those areas normally black (0) as red (1) and in line 120, 
those areas normally white (1) were changed to yellow (3). 


Now add these lines: 
90 FORI=0TO15 
100 A=I1+1: IFA = 16 THEN A = 0 
110 GCOL@,A 
130 FOR delay = 1 TO 100: NEXT delay 
140 NEXT I 


Now to try in a four-colour mode. Here is a program to draw a 
histogram (a graph which shows quantities by columns): 


LBEMODES 
SHG TM nane$o 120. foecaste leo. actualo12 


AF Pi da ta. 
SER RO co louie s 
SIF Pl en 1d 
EER ROC Se ak br 
FEREFEAT UMTIL FALSE 
ea ta PE Fe PROLCO Laur 
aly Coll dy a a. El Id il 
LAeYVDUL 2, Je al 
LiGvOU1S. HLA 
L2eVOULS WL 

1 SGEMDRPROC 

L46DERF PROC or id 

LS he 1 Shh 

LERPORITEA1 TO counter~1 

LYrele forcast: J o>heisht THEM height=f 

mpuraste i 
LSe0F actual lathedignk THEM height=ac 
tia be Doo 

1 SOME T 

SEGGCOLG. 1 MOVELAG, LAG: ORAWLaS, 1ae4 

SJENOVE LE. 1Ae CRAWL S98. Lee 


= 
nde! 


he 
qa b> TD) 17; 
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SeKRORTSe TO hedaaht 

SSGMOVE LAS. TAT? Sagehe i ahh okI+1 88 
SSRORAMSE. DATS See bee Labi ook [+1 be 
SSRIME AT 

Ser ok Dsl TO ie 

SPRUE  MOVESS#T + 7G. Ta 


SGI Cire TO cs 

SGP TM TOHRBE Geo CH Ree Se rare sie J 
“vada DU 

SAGEME AT 

AMER T 

ey Ea pe 

AEN OR ROC 

S400EF PROC arh 

Sl Oe Ti TO scounber fd 


Sea 


FP PTO Sak Teles 
SESE E SSae T ARS Ee 
ASR LOT SS. Seek PTS See bhe dahit oP ora 


tel s+] GS 

AGRR LOTS . Sook [+S TAT See be i aly k cep or 
masbe DD a+] AS 

ALERCOLE. 3 

42R@MOVE SAE De Le 

A3AMOVESS#ET+ PS. Lee 

SOAR LOTSE. aSS#FI+FE5 ) INT See ene i ohh oak 
Wale [a+ as 

S5MPLOTSS. SST +73. DATO See he dabhit okack 
Wale fb atles 

SE EIME ST 

S55 G0 0L8. 1: VOUS: MOVE. daa PR DT a 

SEB MOVe. Fee RR DTAMT a he a ahit 

Fer hove eee LEM! tat les oes eked. LAR: eRe 
IHTbhit Lesh 

sy CL 

4 PRE MDF RO: 

TSeaper PrRitda ta. 

AS5REAObRit les 

tb counters 


SHURE T 
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oo al I a Tama eat rit. ep SS Ty t, mf 1 
S2ORERDES. Bt 
SIF A= "GE" THEM EMDPROC 
Sena Bo countber I= 
Fad orcaaehe counber ob 
SEM achuwa le counker gs 
STMT IL FALSE 
ST oCATAComPuber sales 
SSADATAIAM) 15.11 
SSIKMOATAPEB.s lt. 
BEDA TAMAR: . il. 11 
& LEDATARRP RE. &, 
EEDA TAMNAY 2, 


bi 


ESRIDAT AIM ob 
ESEIDATROIUL » ts 
ESO THAW St , 
EEBOATASEF . iS. 
i TERDATAOCT 7. 
SHOR TAM 18 
SSODATADEC. ’ 
TEEIDATA a, 5 


T 
i? 


fa ~je LALO LD - 


ln Le 
is 


This uses MODE 5 for four colours, but these are re-defined. 
You can re-define these yourself to any colour that you like by 
altering lines 90 to 120. 


The values to be shown on the histogram are in the DATA 
statements. You can put in your own names and numbers here, or 
alter PROCdata so that you can enter them through INPUT 
statements at the start of the RUN, and then store them in an array. 
(You can get an idea how to do this from the next program — 
PIECHART.) You could (with a bit of programming effort) use 
this program to display the results of the LISTSORT program in 
Chapter 7. 


_PROCgrid draws the grid having first looked (in lines 170, 180) 
for the largest DATA item. PROCegrid then scales the grid to be 
just larger than the largest item. Try altering the DATA to see this 
work. 


VDU 5 (in line 465) is a new command. This makes the text 
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cursor move to the same co-ordinates as PLOT. This means that 
you can position text accurately onto your graphics displays, with- 
out having to calculate from graphics co-ordinates to TAB. 


The next program also displays data onto the screen so that it can 
be more easily understood. This time the data is turned into a 
PIECHART. That is where the various data items are shown as 
slices of a pie. 





le REMREEEEE FIECHART caCORE 

= MODES 

Sa OTM itemowaluet SE. i temoname ho 2 
40 FPROCdatA, 

SM PROGGcircle 

BW PROCPiechart 

78 EMD 

SQ DEFFROCP ie chart 

24 YOULL. 2.2.8.4, & 

198 VOULS.3.7.8,8, 6 


Lid VWOUSS. 6465 Sle: 


12) houwmochee coo Lor 1 

136 FOR T=1 TO itemonumber 

ide colours colourt+i TF colours: THEM oc 
Oo lLoure=1 

156 GCOLS. colour 

160 FOR J=@ TO itemows blued I o-j 


IT’S ALL A PLOT 149 


TP) Pcie ia, 6 

Lee MOVE STHe RAG! howmuckit i Ride Brees ts 
AE COE RAD oS heapockre J Rede Sp eae OE Se 

126 FPUOTSS. SIM RAGS Oo booker. ee Re lear 
ee 0 EEG. COE BAG! oS Poouimockrt d+ dl ede ore ee oo 
GEE rate 

Se Mee T 

me LILA» | OWE, 2 

eS DRA SOM RAGS beoteock eid ares OOS 
(CE: RADY houmuckhtdegrees 7 ckSG8 

Se PINE Be DRAM Te RAD o hcckit dd fer 
wa luee TS kideogeee se ORE ee RA Pratik 
Pibemovwaluet Lo ckdegrees ? VE5O8 

S46 FOR Bs TO LEM bhemouname®e J oo 

SSE VOUS OAMCWE SIMO RAGS buturichitr od tere 
Lut I oe Sede grees OE Se - EeRR Oe Prd [ae & 
Pioiinibckrb i bemiwa Lued Does bade creees oO Bele 
a 

Se GOL EL PRINTMINI Dee itemoname Bo [ook 
Jo HER T + tole 

2 winch hoc i bem bine Doo 

USS ESAT 

OS OLE a PIDWEET i 

[8k FOR T= TO Seu ETERP abil-“hota | 

SE DRAM SIM RRA! DOCUMENT Cine RA [oo aca 
ili 

Se) AES 7 

SSE CHGRRIGI 
Mh DER RRO dri be 
ASO FOR Ts) TO abemonurmbrurr 
SE toobal=toota iri hemes bie [3 


"eve" "etn “eee zl, [= 


SPE MET 


“USSD RSH SSR ec ta | 

“1 ° te aoe . i ian i *: wy =e mee 

kg bl bei 

eEus IsEe e ei ooda ka 

. Pat :. r” r . e1pe . ome *, ci . . ra 40%, rte, soyee oss a ., vegae Ae a) 
Ope PRGA T THE S o3 "praTh EM TRY" 
eum face har ton a ae ren 
a EB Ft ald f erie r a lees PF) TALE 
pease ocak 

sa os co ATi ne Be! 


dc Fe LATO ahah a hen eri oN? 
AS deni number et 
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450 REFERT 


47H) ihenornuimbers 7 hemo rime + 1 

428 THRUT itemoname he item iornimker 2 

G90 TF iheminame Se itemiunumber ye"222R" T 
HEM Sel 

2H IHPUT itemoivalues item number 3 


Si PRINT 
SO WAMTIL FALSE 
S38 item names ihem number = "EMD OF FT 


LE" 
Soe Lhemniva lee itenonumber 29S 
gar itemonumbers i tern oriamber] 
S4e CLS 


vel EMDR ROT 


In this case PROCdata allows the user to input the data (this 
procedure could be adapted for use on HISTOGRAM). The item 
name and value are entered. The values do not have to add up to 
any particular total, PROCcircle works out the correct angle for 
each section. 


PROCpiechart draws the piechart. Line 110 sets the graphics 
origin to the centre of the screen. There are two nested loops. The 
program goes round the outer loop (lines 130 to 280) once for 
every item in the data array. The program goes around the minor 
loop (lines 160 to 200) according to the value set against each item 
in the data. If the values are small then there will still be a complete 
pie, but the sides will be straight! Lines 170 and 180 move to the 
cursor through the graphics origin (now in the centre of the screen) 
and the previous point plotted on the outside of the pie. Line 190 
calculates the next point around the pie and 


PLOT 85, (horizontal position) (vertical position) 
draws and fills a triangle between these three points. 


Lines 210 to 230 draw a white line between each section of the 
pie, lines 290 to 320 draw a white circle around the outside. These 
are not strictly necessary but make the final result look much 
neater. 


Lines 240 to 280 print the names given to each section onto the 
chart. This is another example of how VDUS and VDU4 can be 
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used. You may not like the way that some of the titles are printed 
from top to bottom, in which case you can modify these lines 
yourself. 


The final program was written because we wanted to write 
another program which included a world map, drawn by high 
resolution graphics. In order to collect all the necessary data we hit 
on the idea of writing a program which would let us move a cursor 
around the screen (perhaps underneath a tracing paper outline) to 
work out the necessary co-ordinates to plot a hi-res diagram. Here 
is that program. (By the way, we still haven’t got around to writing 
the program with the world map!) 


16 REM GCSE RPLOTTERD 4cRaGR RACER 
26 REM aR BY STERPHEM MILAM soko 
SE TMODE 4 

4d PROC nstreuckh ions 

ey eR RE Be Decree cee 


G2 OTT ede Leos ede Deel o 

PH ALL see 1 1 oe olde olde 

S36 REFEHT 

90 IF INKEeYc-330 THEM action =" mei" 

198 IF THREW -lido THEN action$=" draw” 
146 PROCmowe 

138 PRIHTTARC Te. 290; "8 "Gea" "G TAB Se. Soo 


160 PROCcrosswhairs: IF action$="draw" THE 
H FORI=1 TO S@:HExXT 

17) PROCcross hairs 

130 IF IWKE’{ -1669 AHO action$="mMowe" THE 
H PLOTES. we. P oldass older: PROCEO.Word 

196 IF INKEY. ~106> AWD action$="deaw" THE 
H MOVE midkhioldy DRAM 4. Tooldsess olds": PRO 
Cima ord 

266 UHTIL FALLS 

216 DEF FROCcrose_hairs 

220 IF action&S="deauw" THEM 268 

2360 MOVE #H-S@.:PLOT 6. 4-16. 7 MOVE “+l 
-PLOT 6. tS ‘¢ 
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240 MOVE eo YRS8 PLOT Gok Le AOVE sortie 
PPLOT Gaia ee 

eo EMDR ROC 

eel MOVE olde.oldy PLOT Bara 

2r@ EMDRROC 


S68 DEF FROCmows 
S@oIF IHRE. -3689 THEM Ys‘+en 


IF- THRE -420 THEM ‘sy'-28 
IF IHRE ¢-26>5 THEM H=k-2el 
ITF IHRE. -lLe2o THEM aAse4+ce 
IF 4eier9 THEN Ashe 

IF fe THEM A=8 

IF VYPilea@es THEM ‘f='""-28 

IF ‘tt THEM ‘=e 

EMDR ROC 

DEF FPROCcooord 

400 FRIWTiactbion®i" = "4 

416 FRIHTTABL Leos" "Gea" "STAR Sea i 


we. i | 
=) i ta 


nm % . 
tia * ge 


1 To 


® 


ake 


a8 2 a OG) i 3 Le to to fh 


Rm Ct 


fm) fo 


420 FOR [=1 TO 2eee: HEAT: EMDPROC 
450 DEF PROCingsteruckions 
46H PRIHTTARS 16.20; "PLOTTER" 
47°H FRITS "This Program hells gow to work 
mut the necessary Points for including hi 
~PieS drawings into your oun Programs. " 
4360 FRINT’ "The Position of the cursor is 
monterolledbys the cursor-control keys. " 
4949 PRIHT’ "A Point is fixed by Pressing < 
TOP ye" 
Sei FRINT! "The functions available are :" 
Slag PRIWT’ " fa — Move" 
Je FRIMT? " fi —- DRA" 
260 FRINT’ “TABC So"PRESS AMY KEY To COHMTI- 
WE" 
Jr continue S=CETS 
290 (CLS 
238 EMDPROC 


The program goes around the REPEAT. ..UNTIL FALSE loop 
(lines 80 to 200). Lines 90 and 100 show a new way of using 
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INKEY. Any key when pressed will return a different value to 
INKEY. In lines 90 and 100 we want to test for red keys f0 and f1. 
If {0 is pressed it will return the value —33. If fl is pressed then the 
value will be -114. There is a list of the values of all the keys in the 
User Guide. So if either of these keys is pressed then action$ 
becomes either “move” or draw”. If any other key is pressed then 
action$ is not affected. 


PROCmove (lines 280 to 370) alters the co-ordinates X and Y. 
Again INKEY is used, this time to detect the four cursor control 
keys. 


Line 150 prints the co-ordinate values onto row 29 of the screen. 
PROCcross-hairs (lines 210 to 250) shows the co-ordinates’ posi- 
tion on the screen. Line 220 tests to see whether action$ is "move" 
or “draw”. If action$ = "move", then lines 230 and 240 draw 
cross-hairs onto the screen, centred on the co-ordinates. These are 
drawn with PLOT 6 which 1s the “‘opposite colour’ plot demon- 
strated earlier. This means that the cross-hairs can be erased 
without affecting what was on the screen before, just by calling 
PROCcross-hairs again (line 170). 


If action$="draw” then line 260 MOVEs the cursor to oldX, 
old Y (which is the last point fixed) and then draws PLOT6,X,Y. 
This then draws a line from the previous point fixed to the position 
X,Y. Because PLOT 6 is used, this line can be continually erased 
and the line moved until the required position 1s reached. This is 
known as “rubber-banding’’, and is used in many professional 
computer-aided design programs. 


Lines 180 and 190 look for the key to be pressed. 
This fixes the point. If action$="move” then PLOT 69,X,Y draws a 
small dot at the position of the co-ordinates. If action$="draw” 
then a line is drawn from oldX, oldY to X,Y. Then oldX is made 
equal to X, and oldY equal to Y so that these can be used as 
references if needed for drawing to the next co-ordinates. 


PROCco-ord prints the co-ordinates which have been fixed, at 
the bottom of the screen, so that these can be accurately noted 
down. If you need to be reminded to write them down add this line: 


418 VDU7 
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If you have a printer and want a printed list then add the lines: 
395 VDU2 
415 VDU3 
The next section extends the program so that it can plot circles. 
Add these lines: 


J 


a4 PRIMT? feo o~ CIRCLE" 
SAG OEP PROGcircle 

=10 FRIHTTARS 6.29 55) SPCC S395 TABS G, SEG See 
Ot DG 

Bell FRIHTTAB A. 2355 "Circle drawings eoutin 
a Radius rae 
A a=olLde sold 
REFERT 
FROCmowe 
FROCcrimes hairs PROCcrossuhiairs 


iis IF THEE No~LiSo THEM PROOrincle 


fa Ts tm ¢ 


oe 


Ooo AU & 2 


AIF IHKEY¢ -21> THEM PROCKoame 

a WIT EL INKEY! -1e6 

M SSS=ABSC olde: SYSABSse old '¢ 
Me radi USe=SGIRe MEME TREY D 


mf oh Uy iy oy 7, i, my 


rs 
LAS, 


FRIHTTABC@, SB; "Plot circle radius "i 
radius 

rea Flot=4:FOR angle=8 TO S6@ STEF 3 

Yo PLOT Plot. SIHC RAD angle  otradiustoldy 
,COS¢C RAD. angle 2 o#tradiustald’’ 

T4340 FPlot=5 

Toa HEMT 

Tee Beolda:‘=old'y 

rr PRINTTABS 6, 25 95 SPCC BoD 

786 EMDPROC 


Line 110 detects red key f2. 


PROCecircle first of all uses the cross-hairs to find the radius of 
the circle, which will be centred on the last fixed point. COPY fixes 
the radius, line 700 calculates the radius and the circle is drawn by 
lines 720 to 750. 
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The next addition allows you to print messages onto your dis- 
play. 


SH TRH acbhions= "move" wei tt 
IF INKE’¢-1169 THEM PROC letters 
TF wreatten=1 THEM 436 
PRIHT VOUS "Gs TABS 1S oimessa aes i 
EMDR Rac 
PRINTS" fao- MESSAGE" 
COEF PROC letters 
PRISE poe P are 
REPEAT 
letter S=GETS 
TF (LEHC message St+3 oe SS+oldke Teese op 
LEME message$ +3520 THEM lt? 
Sok IF «LEM message $ 34+] SEAS +o LAR ELS 
LEM! meeaace$ 04+1°20 THEM WOUF: PROC rer ape 
sa flag = ASC letterSo: IF £laae12 THEM fat 


fe: it ia Lh 


i (or Go Re Cy 


wi ee Fs 
KS, 


MT Co ts ~PLA  .  e 
: 


fa Pare Re 


fa f Fa Me Gai 


2} 


~~ 
ie 
pa 
<5 


PRIHTLetther “Bs 
Ne333 98 f= yes 
WHTIL flags= 
WON IE 

MOVE olde did’ 

PRIWT messaces 

Cal ted 

PRIMTTABS @,. 29 9; SPire aa 5 
PRINMTTHES @. S65) SPI SS os CHepe J 1 3 
weLihtenel PROG coord wed bh ry 

EMDR PCH: 

DEF PROGR mek arg 

Pr GMT TRE el, 250; SOL 39 

PRIMTTAHB! G. 305 SPR Bs 

FPRIHTTAES &, 29°; "MESSAGE “~~ PTR Mee So 
le  RETI Ahh" 

LHI message Be"": Letbber Se" PETS 1 

Lease ENDRPROI 


~j 


fi © Go © 


tt 


ha hs s+ Ga ho 
nt fa Fa 


fir ~j 0, LA ES 


as Ts mz Cur 


i o Li lot Ate bi lt Wo ne a a a oe OL 
big ¥ 
ff Tt 


}- 
1 


The variable written is a flag to make PROCco-ord PRINT the 
correct message. 
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The message is entered through the REPEAT. . .UNTIL loop 
(lines 810 to 880). This GETs each letter and checks that the 
message is not too long to fit into the space available (or just too 
long). There is another flag (called flag) in line 850 which looks for 
the key to be pressed. This lets the program escape 
from the loop and print the message at the correct place on the 
screen. 


The last section will only work on a Model B machine, or a 
Model A with 32K of memory. This is because of the space needed 
to set up two arrays. The program stores all the co-ordinates that 
have been fixed. Then at any time, by pressing red key f4, the 
co-ordinates will jump to the nearest point previously fixed. 


2H ASE SE ach ions= "move"  Poinke=liwrei tt 
m= 
Fekel IPT eed Le a de Leet 
eo Aw] see le Loe olde: olay 
Lee fF INREYO-219 THEM FROCMome 
Lae IF THEE TG ~ Line 3 AMO actkionS= "move" THE 
MH RPLOTE Sef ORPRO Carr ag oldies coo Lats: PRC 
ard 
13H ITF THRE -1860 AHO ackion$S="deaw THE 
MH MOVE aldkuoldy DRAW Bot RR Carre ag oldies: 
oldv=s PRO 2o ord 
SS FRITS" fe} o~- FING HERREST POINT" 
LES DEF PROC one 
L240 closest=9999:FOR[=1 TO Points 
LBSe disteshile lo-a distye sic Toy 
BEM IF ABS dishes I+ABSt disty ooclos 
mlose@seh=Hbst dist. I+AB St diste derle 
= J 
Lara HEAT 


les Keeli closesteointarYve"Lli cl osesteaint : 


as 


‘me, 
i= 


1896 EMDRPROC 

1108 DEF FROCarras 

1116 FPoints=Pointst+!] 

L126 Kit roints  =0lde: TIC Points 2=o01d'T 
1136 EMOPROC 
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Line 60 DIMensions the two arrays X1 and Y1. Lines 180 and 
190 have PROCarray added which adds any new co-ordinator to 
the list. PROChome (lines 1030 to 1090) searches through the 
arrays and finds the closest to the present co-ordinates. ABS 
(absolute) is a BASIC word which tells the computer to ignore + 
and — signs. 


If you have a Model B and joysticks, these lines will let you move 
the cursor with one of the joysticks. Don’t add the lines to the 
program unless you are going to add the joysticks, or nothing will 
work. 
136 [F “THEE Vc-ieeo OF CADYVRILY Bo AMD 3 
210 AWD action#="mowe"” THEM PLOTES. aT: 
PROCarras ooldese colds PROG 
{2G TF (THRE Y¢-lieo OF CADWALE ao AHO oS 
velo AWD action$="draw" THEM MOWE olde 
ld DRAM Boy RPROCarrag oldssacooldys so PRO 
Cin ord 
2S DESIMTOOADWALS 1 o- SRE SRR os TR OD 
ale AMD Dae S THEM Desk 

Bae DSI OC ADWALS So SEG oe Seo TR oD 
Yes AMD Doe THEM Dor=8 

SLA atari, 

Bel eth fy 

BSE UMTIL DTHREW ~-Lleeo OR CADMALS ao AMD 


on 
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WORDSQUARE 3 


This wordsquare contains 44 words, most of 
which were introduced in Chapters 9-12. 


rFOHSSZMMPwwrravSemHamaArioln 
ZOAOAKNAZMAUTAAK VOD ClH 


a) 


q4moesmimrcwclolo 


QAAPrrPrrraAnoOmMurmrmxzrn 
ee ZA DOr 


S 
M 
C 
O 
O 
R 
D 
I 
N 
A 
T 
E 
S 
E 
O 
A 
H 
L 
D 
S 


OLZPrPKOA OMA YATMArMAAPIO 
Ae oHMoimmnAxtmAZornnzca 
MNAPTrPSPPOrIHMACOronyAms) 
ZOANUVNNGTHO SD 

OnrQlH sn KAKAOPe<KOMAMZIO 
NAKAAQOMCOAZOS<MHrcaaizio 
OFA UISFMAOUrAmMVOrM<azmMol|> 
COmMOnrK<OCOKPOMArUOKG 
ZOAPHAAMOAr Zs wr HACOUM rE. 
OwWCrU“SZMLUCAPHRKO2ZMISYm 
HACUAHKKOrH VOU ZOOKrOWzZZ 


ae >Poncnpro 


ACTUAL DRAW LOAD 
AMPLITUDE DURATION LOGICAL 
ATTACK ENVELOPE MAGENTA 
BACKGROUND FALSE MEMORY 
CHANNEL FLASH MODE 
CHARACTER FOREGROUND MOVE 


CHR FUNCTIONKEY ORIGIN SAVE 
COLOUR GCOL PARAMETER SOUND 
COORDINATES GRAPHICS PITCH STEADY 
CYAN HIRES PLOT SUSTAIN 
*‘* DECAY INKEY POLYGON TELETEXT 
DOUBLEHEIGHT KILOBYTE TEXT 
VDU 





Appendix 1 
DEBUGGING 





What happens if the program doesn’t work? Then it has a bug in it 
and needs debugging. 


There are two main sorts of problems: 
Errors of syntax 


Errors of logic 


SYNTAX ERRORS 


If you are copying a program printed in a book or magazine then 
it’s usually (although not always) an error of syntax which is the 
problem. These are the easiest to trace. 


‘Syntax means “the rules of a language’’. A syntax error means 
that you are not obeying the rules of BASIC — you’re not talking 
“proper” to the computer. As mentioned in Chapter 1, the compu- 
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ter is essentially very stupid and unless it receives exactly the right 
instructions it cannot do what you want it to. So any error made 
whilst the program was keyed-in can have a serious effect on the 
running. 


If you have a syntax error then usually there will be some sort of 
error message printed on the screen together with a line number. 
This is very helpful. LIST that line and check it very carefully with 
the line printed in the book (or magazine or wherever you got the 
program from). Here are some of the most common errors. 


Using small letters instead of CAPITAL LETTERS 


The BBC computer considers a small ato be a completely different 
letter to a capital A, and so won’t recognise any letters that are 
wrong in this way. You will need to copy any lines where this has 
happened, substituting the correct characters. 


Using 1 (one) instead of I 


The letter I is very popular with computer programmers for use as 
a variable name. This is because I is the closest key to (and ). In 
programs using arrays it is very quick to key in A(I). So you will 
find a lot of programs which use I for loop parameters in arrays. 
Be careful not to confuse these with the number one (1). 


Using “‘O” instead of 0 


Most program listings show zero as @. The BBC micro in MODE 7 
uses teletext characters where the zero has no line but is more 
‘“‘diamond”’ shaped than the letter ““O”’. Be careful not to mix them 


up. 
Using a decimal point (.) instead of a comma (,) 


Easy to do if your finger slips, but quite difficult to trace, because 
you re not likely to get an error message, particularly if the bug is in 
a DATA statement. 

No RETURN between statements 


That is where you copy two statement lines together and don’t 
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press RETURN after the first one. The easiest way to spot this is to 
LIST just one line. If two lines appear together then you haven’t 
pressed RETURN between them. The remedy is simple. Move the 
cursor up, copy the first line and then press RETURN. Then move 
the cursor up again and copy the second line. 


Wrong spaces 


Spaces can cause trouble in some cases, either because there are 
too many, or not enough. For example, there should never be a 
space between TAB and the bracket: 


TAB(10) not TAB (10) 


There must be a space between a variable name and a following 
BASIC word. Thus: 


70. IF lines = number AND rows = total THEN flag=1 
not 70 IF lines = numberAND rows = totaITHEN flag=1 


After that, the chances are that you’ve misspelt something, so 
you ll need to keep looking and checking. It’s always better if you 
can get someone to read out the program while you type or check. 
Often you can stare at a bug for ages before you actually see it, so 
it’s a good help to get someone else to look, for sometimes they see 
it straight away. 


If you have used the LISTO command to introduce spacing into 
a list to make it easier to read, and then use the COPY key to make 
a correction, the extra spaces will be copied into the new line, 
whether you want them or not. If you have used the WIDTH 
command and then COPY, you may get spaces introduced into the 
middle of lines, perhaps in the middle of a variable name, or a 
BASIC keyword or a number. So if you have been using LISTO 
and are going to use COPY, then it’s best to type LISTO@ (and if 
you have been using WIDTH, WIDTH79). 


Spaces in DATA statements are very important. Spaces be- 
tween a DATA item and the comma, or an extra space at the end of 
a DATA line before RETURN is pressed, will be counted as part 
of the item. A comma at the end of a DATA line will be under- 
stood by the computer as an extra (blank) item. 


162 A YOUNG PERSON’S GUIDE TO BBC BASIC 


LOGICAL ERRORS 


An error of logic means that you have (correctly) told the compu- 
ter to do something that won’t work. Your algorithm is wrong. 
Usually the computer won’t give an error message because it 
cannot tell that anything is wrong. If you are writing a program to 
perform a calculation, it is best to test it with data where you know 
the correct answer. 






Cheerful Thought — 


It is only possible to prove that a program is wrong. You 
can’t prove that it’s correct. 






ABSolute 

Actual colour 
ADVAL 

Amplitude 

Arrays 

Auto line numbering 
Auto repeat 


BASIC 
Brackets 
Break 
Bugs 


Caps lock 
CHAIN 
CHANNEL 
CHR$ 

CLS 
COLOUR 
Connecting up 
CONTROL-L 
CONTROL-N 
Co-ordinates 
COPY | 
Cursor control keys 


DATA | 
DEF PROC 


163 


index 


164 A YOUNG PERSON’S GUIDE TO BBC BASIC 


DELETE 
DIMension 
Direct commands 
DRAW 

Duration 


Editing 
Equals 
ELSE 

END 
ENDPROC 
ENVELOPE 
Errors 
Escape 
EVAL 


Flash 

Floating point variable 
Flowchart 

FOR. . .NEXT 


GCOL 

GET$ 

GOSUB 

GOTO 

Graphics 
Graphics origin 
Greater than (>) 


IF. . .THEN 

IF.. .THEN. . .ELSE 
INKEY$ 

INPUT 

INTeger 

Integer variables 


Joysticks 


LEFT$ 
LEN 


15 

56 

17, 29 
140 
129 


34 
52 


103, 157 


78 
76 


INDEX 


Less than (<) 
LIST 

LISTO 

LOAD 

Loading 

Logical colours 
Logical errors 
Loop parameter 


Memory 

MID$ 

Missing 

Mistake 

MOVE 

MODE 
Multi-statement lines 
Musical notes 


NEW 
NEXT 
Not equal to (<>) 


OLD 
Origin 
Output 


PI 

Pitch 

PLOT 
PRINT 
PROCedure 
Process 
Program 


READ 

REM 

REPEAT. . .UNTIL 
RESTORE 
RETURN key 
RETURN 
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RIGHT$ 
RND 
RUN 


SAVE 

Saving 

Sorting 

SOUND 

Speeding up programs 
SOR (square root) 
Square 

STEP 

String variables 
Structured programming 
Subroutines 
Subscripted variables 
Syntax errors 


TAB 

Teletext colours 
Text origin 
TIME 


UNTIL 
User defined characters 
User defined keys 


Variable names 
VDU 19 
VDU 23 


Answers to questions on page 99. 


10 VDU 23, 224, 32, 36, 66, 129, 66, 36, 32 
20 VDU 23, 225, 32, 32, 68, 68, 136, 136, 255, 255 
30 VDU 23, 226, 20, 60, 124, 214, 254, 214, 254, 254 
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A YOUNG PERSON’S GUIDE TO BBC BASIC 


The personal computer is the modern equivalent of the genie in the bottle. 
Correctly instructed, it can transport the user to realms limited only by 
human imagination. The computer can be helper, teacher, companion... 
depending on the programs used. 


BBC BASIC, developed for the BBC Computer, is a version of the compu- 
ter language BASIC. It quickly became recognised as one of the fastest 
and most powerful versions of BASIC available on a personal computer. 
and is now available on two other Acorn computers: the Electron and the 
Atom. 


This baok has been written with the young first-time user in mind, but it will 
also appeal to older and more experienced users. It is especially aimed at 
those people interested in writing their own programs. It assumes no 
previous knowledge of computing, and pays particular attention to good 
e}gotel¢-lanlaaliare ma (cxealal(ele (on 
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